Question

wczytać kolejno 10 liczb natutralnych z zakresu <0;99>.Podaj, która z podanych liczb jest wieksza.
użyj pętli

Program Free Pascal

Answer 1

program porownanie_10_liczb;

uses crt;

var

t:array[1..10] of integer;

i,max:integer;

begin

max:=0;

for i:=1 to 10 do

begin

clrscr;

writeln('Podaj liczbe nr ',i,' z zakresu 0-99.');

readln(t[i]);

if t[i] > 99 then

begin

writeln('Podana liczba jest zbyt duza');

i:=i-1;

readln;

end

else

if t[i] > max then

max:=t[i];

end;

writeln('Najwieksza podana liczba to: ',max);

readln

end.