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

Question

Информатика

Лексаня

26 января, 00:04

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

+4

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