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

Question

Информатика

Станислав

30 декабря, 04:53

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

+5

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