Заполнить массив состоящий из 10 элементов случайными целыми числами из промежутка [-50;50]. Выведите на экран и вычислите сумму всех отрицательных элементов. Как в программе паскаль. Заранее огромное спасибо с:
Const
n = 10;
var
x: array[1..n] of integer;
i, s: integer;
begin
Randomize;
Writeln(Элементы массива);
s := 0;
for i := 1 to n do
begin
x[i] := Random(101) - 50;
Write(x[i]:4);
if x[i] < 0 then s := s + x[i]
end;
Writeln;
Writeln(Сумма отрицательных элементов равна , s);
end.
Тестовое решение:
Элементы массива
50 36 5 -13 19 -3 50 -5 -39 12
Сумма отрицательных элементов равна -60
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
