СРОЧНО!!!Дан массив из N целых чисел. Найти сумму всех отрицательных чисел. Создать программу на Паскаль
Ответы на вопрос
Ответил maria315315
0
var
a: array [1..n] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to n do
begin
if a[i]<0 then s:=s+a[i];
end;
end.
Новые вопросы