Найти сумму отрицательных элементов массива A (10), заданного ГСЧ на отрезке [-20; 20]

Question

Информатика

Кара

31 марта, 18:08

Найти сумму отрицательных элементов массива A (10), заданного ГСЧ на отрезке [-20; 20]

+3

Ответы (1)

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

Альбинка · Answer 1

Program gcch;

var i, s:integer; mas:array [0 ... 10] of integer;

begin

s:=0;

for i:=1 to 10 do

begin

mas[i]:=Random (21) - 20;

if mas[i]<0 then s:=s+1; end;

writeln ('Сумма отрицательных элементов=', s)

end.