Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Помогите пожалуйста. Информатика найти массив

Кирилл Ботвинко Знаток (262), закрыт 5 лет назад
Дан массив целых чисел. Найти сумму отрицательных элементов массива ( это информатика через Паскаль)
Лучший ответ
Александр Баханский Искусственный Интеллект (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.
Остальные ответы
Высший разум (1270979) 5 лет назад
s:=0;for i:=1 to n do if a[i]<0 then s:=s+a[i];
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.
Похожие вопросы