Предмет: Информатика, автор: Сер12ега

Составить программу и блок - схему к задаче: Вводится последовательность из N целых чисел. Найти сумму отрицательных.Пожалуйста помогите

Ответы

Автор ответа: Аноним
1
program al;
var a:array[1..32000] of integer;
n,s,i:integer;
begin
writeln('n=');
readln(n);
writeln('vvedite massiv');
for i:= 1 to n do
readln(a[i]);
s:=0;
for i := 1 to n do
if a[i]<0 then s:=s+a[i];
writeln('s=',s);
readln;
end.


Сер12ега: Спасибо большое))
Похожие вопросы
Предмет: Математика, автор: элизабет35