var
N: integer;
a: array [1..1000] of integer;
sum,i,k: integer;
begin
write('Введите размерность массива: ');
readln(N);
write('Введите элементы массива: ');
for i:=1 to N do
read(a[i]);
writeln('Элементы массива a: ');
for i:=1 to N do
write(a[i],' ');
writeln;
sum:=0;
for i:=1 to N do //Условие и проверка отрицательности и делимости элементов
if (a[i]<0) and (i mod 3 = 0) then
sum:=sum+sqr(a[i]);
writeln('Сумма квадратов значений элементов с условием равна: ', sum);
k:=0;
for i:=1 to N do //Условие и проверка положительности элементов
if (a[i]>0) and (a[i]<>sum) then
inc(k); //Сумма положительных элементов
writeln('Количество положительных элементов: ', k);
end.
