Дан массив А (7). Найти максимальный элемент массива.

Question

Информатика

Мавра

15 ноября, 20:02

Дан массив А (7). Найти максимальный элемент массива.

+3

Ответы (1)

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

Сергуля · Answer 1

Program ar;

var arr:array[1 ... 7] of integer;

i, h:integer;

begin

h:=0;

for i:=1 to 7 do

begin

readln (arr[i]) ;

if arr[i] > h then h:=arr[i];

end;

write (h) ;

end.