Question

Запиши программу на языке программирования Паскаль.Дано 5 целых чисел. Напиши программу нахождения наибольшего среди них.

Answer 1

Var chisl:array [1..5]of integer;
i,max:integer;
begin
   for i:=1 to 5 do begin
   Write(i,'-число='); Readln(chisl[i]); end;
   max:=0;   
for i:=1 to 5 do begin
if chisl[i]>max then max:=chisl[i]; end;
writeln'max chislo=',max);
end.