Одномерный массив E[11] Найти максимальный из отрицательных элементов

Question

Информатика

Надежда

21 апреля, 00:19

Одномерный массив E[11] Найти максимальный из отрицательных элементов

+1

Ответы (1)

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

Дианка · Answer 1

Program al;

var e:array [1 ... 11] of integer;

max, i:integer;

begin

write ('vvedite massiv ') ;

for i: = 1 to 11 do

read (e[i]) ;

max:=-10000;

for i: = 1 to 11 do

if (e[i]max)

then

max : = e[i];

writeln ('max=', max) ;

readln;

end.