Ввести массив из 30 производных чисел и найти сумму всех отрицательных (паскаль)

Question

Информатика

Ефрем

29 декабря, 11:37

Ввести массив из 30 производных чисел и найти сумму всех отрицательных (паскаль)

+3

Ответы (1)

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

Викуша · Answer 1

Program gt;

var a:array[1 ... 30] of integer;

i, s:integer;

begin

randomize;

s:=0;

for i:=1 to 30 do

begin

read (a[i]) ;

write (a[i],' ') ;

if (a[i]<0) then s:=s+a[i];

end;

writeln;

writeln ('s=', s) ;

end.