Odpowiedzi

Najlepsza Odpowiedź!
2010-03-25T17:15:19+01:00
Program maska;
uses crt;
n,i,liczba,max:integer;
begin
writeln('podaj dlugosc ciagu n=');
readln(n);
writeln('podaj',n,'liczb');
read(max);
for i:=2 to n do
begin
read('liczba');
if max<liczba then max:= liczba
end;
writeln(maksymalny element wynosi', max)
end.