Предмет: Информатика,
автор: Сер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.
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ега:
Спасибо большое))
Похожие вопросы
Предмет: Русский язык,
автор: настя34891
Предмет: Математика,
автор: Dotalogo76
Предмет: Математика,
автор: элизабет35
Предмет: Музыка,
автор: Nezik
Предмет: Русский язык,
автор: mikaellaxakuya