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

Question

Информатика

Леопольд

12 декабря, 12:52

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

+2

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