дано 10 чисел вывести сумму отрицательных элементов массива
BayMaxMB:
отрицательных элементов массива ???
Ответы
Ответ дал:
1
программа на 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.
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.
Вас заинтересует
11 месяцев назад
11 месяцев назад
6 лет назад
6 лет назад
7 лет назад