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

Question

Информатика

Евминия

14 августа, 20:13

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

+2

Ответы (1)

Знаете ответ на вопрос?

Ульян · 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

begin res:=A[i]; c:=i;

end;

writeln ('Максимальный элемент массива:', c,' его значение:', res) ;

readln;

end.