Составить программу нахождения максимального элемента массива А[1..7]

Question

Составить программу нахождения максимального элемента массива А[1..7]

Answer 1

Var A:array[1..7] of integer;
res,i,c:integer;
begin
res:=0;
writeln('Ведите массив') ;
for i:=1 to 7 doreadln(A[i]);
for i:=1 to 7 doif res<=A[i] then<br>begin res:=A[i]; c:=i;
end;
writeln('Максимальный элемент массива:',c,' его значение:',res);
readln;
end.

Comments

спасиииб