Написать полностью программу Turbo Pascal Задание: Найти сумму отрицательных элементов массива
Написать полностью программу Turbo Pascal Задание: Найти сумму отрицательных элементов массива
Гость
Ответ(ы) на вопрос:
Гостьconst
n = 10;
var
a: array[1..n] of integer;
i, s: integer;
begin
s := 0;
for i := 1 to n do
begin
a[i] := random(20) - 10;
if (a[i] < 0) then s := s + a[i];
end;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы