Составить программу, которая генерирует 10 случайных чисел в диапазоне от - 20 до 30, выводит эти числа на экран и вычисляет сумму отрицательных

Question

Информатика

Петяйка

29 марта, 20:54

Составить программу, которая генерирует 10 случайных чисел в диапазоне от - 20 до 30, выводит эти числа на экран и вычисляет сумму отрицательных

+2

Ответы (1)

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

Станислава · Answer 1

Var a:array[1 ... 10] of integer;

i, s:integer;

begin

randomize;

for i:=1 to 10 do begin

a[i]:=random (51) - 20; write (a[i],' ') ; end;

writeln;

s:=0;

for i:=1 to 10 do

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

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

end.