Написать программу подсчёта числа отрицательных элементов массива

Question

Информатика

Митюня

22 октября, 12:45

Написать программу подсчёта числа отрицательных элементов массива

+2

Ответы (1)

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

Силя · Answer 1

Const

n=10;

var

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

i, k:integer;

begin

for i:=1 to n do

begin

a[i]:=random (100) - 50;

write (a[i]:4) ;

if a[i]<0 then

k:=k+1;

end;

writeln;

writeln (k) ;

end.