1)Составить массив из 10 целых чисел ,вывести его на экран и подсчитать количество элементов массива ,значения которых не превышают трех
2) Составить массив из 10 целых чисел и вывести его на экран ,подсчитать сумму отрицательных и положительных чисел в массиве .

program HelloWorld;varmas : array [1..10] of integer;count, i : integer;begincount:=0;for i:=1 to 10 dobegin read(mas[i]); if mas[i]<4 then count:=count+1; writeln('a[',i,'] = ',mas[i]);end;write('Количество элементов, не превышающих 3 - ',count);end.

---------------------------

Вторая задача

--------------------------------

program HelloWorld;varmas : array [1..10] of integer;sumNeg, sumPos, i : integer;beginsumNeg:=0;sumPos:=0;for i:=1 to 10 dobegin read(mas[i]); if mas[i]<0 then sumNeg:=sumNeg+mas[i] else sumPos:=sumPos+mas[i]; writeln('a[',i,'] = ',mas[i]);end;writeln('Сумма отрицательных - ',sumNeg);writeln('Сумма положительных - ',sumPos);end.