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

var

a: array [1..n] of integer;

i,s:integer;

begin

s:=0;

for i:=1 to n do

begin

if a[i]<0 then s:=s+a[i];

end;

end.

в древней индии, до изобретения китайцами бумаги, которую потом экспортировали в индию, писали либо на камнях, либо на пальмовых листьях сажей или другими красителями, разведенными на козьем молоке (казеин).

1 кбайт=1024 байта

1 байт=8 бит

81920/8=10240 байт

10240/1024=10 кбайт