Question

Napisz program korzystając z tablic który wczytuje z klawiatury 8 liczb i wyswietla najmniejszą zadanie nalezy zrobić w pascalu

Answer 1

Link:

http://pastie.org/7974231

 

 

program asddf;

var
liczby : array[1..8] of integer;
a,najwieksza : integer;

begin
for a:=1 to 8 do //Zczytywanie liczb, i przypisanie do tablicy
begin
writeln('Podaj ',a,' liczbe');
readln(liczby[a]);
end;
najwieksza := liczby[1];
for a:=1 to 8 do //Porównywanie liczb
begin
if (liczby[a] > najwieksza) then
najwieksza:= liczby[a];
end;
writeln('Najwieksza liczba z wczytanych, to liczba: ',najwieksza);
readln;
end.

 

PZDR Marcin!!