Дано 10 чисел вывести сумму отрицательных элементов массива
Дано 10 чисел вывести сумму отрицательных элементов массива
Гость
Ответ(ы) на вопрос:
Гостьпрограмма на Pascal
program xxx;
var a: array [1..10] of integer;
i, s : integer;
begin
writeln (' введите элементы массива');
for i:=1 to 10 do
readln (a[i]);
s:=0;
for i:=1 to 10 do
if a[i] < 0 then s:=s+a[i];
if s=0 then wrwteln (' отрицательный чисел - нет')
else writeln ('сумма отриц. чисел='. s)
end.
Не нашли ответ?
Похожие вопросы