Александр Баханский
Искусственный Интеллект
(105525)
5 лет назад
Program pasc;
var a: array[1..50] of integer;
n, i, s: integer;
Begin
write('N: ');
readln(n);
for i:=1 to n do
begin
write('A[', i, '] = ');
readln(a[i]);
end;
s:=0;
for i:=1 to n do
begin
if a[i] < 0 then s:=s+a[i];
end;
writeln('Sum of negative numbers: ', s);
End.
Pool
Мастер
(2486)
5 лет назад
Program pasc;
var arr: array[1..50] of integer;
n, i, s: integer;
Begin
write('N: ');
readln(n);
for i:=1 to n do
begin
write('A[', i, '] = ');
readln(arr[i]);
end;
s:=0;
for i:=1 to n do
begin
if arr[i] > 0 then s:=s+arr[i];
end;
writeln('Sum of positive numbers: ', s);
End.