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

Question

Информатика

Ярослав

3 января, 23:57

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

+5

Ответы (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.