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

Question

Информатика

Максюта

9 августа, 09:55

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

+4

Ответы (1)

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

Сашуля · Answer 1

Var A: array [1 ... 7] of real

var max: real, i: integer

begin

for i:=1 to 7 do readln (A[i]) ;

max = A[1];

for i:=2 to 7 do if A[i] > max then max : = A[i];

writeln (max) ;

end.