Дана последовательность найти наибольшее из всех отрицательных чисел. Нужен код. Паскаль

Question

Информатика

Летя

10 августа, 03:37

Дана последовательность найти наибольшее из всех отрицательных чисел. Нужен код. Паскаль

+1

Ответы (1)

Знаете ответ?

Стахий · Answer 1

Var

a:array [1 ... 10] of integer;

i, m:integer;

begin

for i: = 1 to 10 do

a[i]: = Random (-100,100) ;

writeln (a) ;

for i:=1 to 10 do

if a[i]<0 then m:=a[i];

for i:=1 to 10 do

if (a[i]m) then m:=a[i];

writeln (m)

end.