Пользователь вводит массив из 10 чисел, надо вывести максимальное
Answers & Comments
iowisp3
const n=5; var a:array[1..n]of integer; c,i:integer; begin for i:=1 to n do begin read(a[i]); if i=1 then c:=a[i]; if a[i]>c then c:=a[i]; end; writeln(c); end.
Answers & Comments
var
a:array[1..n]of integer;
c,i:integer;
begin
for i:=1 to n do
begin
read(a[i]);
if i=1 then
c:=a[i];
if a[i]>c then
c:=a[i];
end;
writeln(c);
end.