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

Question

Информатика: Дан массив из N целых чисел. Найти сумму всех отрицательных чисел. Создать программу на Паскаль

imailh28282 · Answer

var a: array [1..n] of integer;i,s:integer;begins:=0;for i:=1 to n do begin if a[i] 0 then s:=s+a[i]; end;end....