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

Question

Информатика

Розалинда

30 января, 19:35

Составить программу паскаль нахождения максимального элемента массива А[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.