Создать программу, которая находит максимальное отрицательное число, кратное 2.

Question

Информатика

Луиза

10 октября, 22:17

Создать программу, которая находит максимальное отрицательное число, кратное 2.

+3

Ответы (1)

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

Кастрихий · Answer 1

Program n1;

const n=10;

var a: array[1 ... n] of integer;

i, max: integer;

begin

randomize;

a[1]:=random (11) - 10;

max:=a[1];

writeln ('исходный массив:') ;

for i:=2 to n do

begin

a[i]:=random (21) - 10;

write (a[i],' ') ;

if (abs (a[i])
then max:=a[i];

end;

writeln;

writeln ('максимальный отрицательный, кратный 2: ', max) ;

end.