1) Дан массив целых чисел A[1..8]. Найти количество отрицательных элементов массива.
2) Дан массив целых чисел A[1..8]. Вывести на экран сумму элементов массива, если A[k]=k^2.

1) c:=0for i:=1 to 8 do beginif a [i]<0 then inc (c);end;writeln (c);2)c:=0for i:=1 to 8 do beginc=c+i×i;end;writeln (c);