№1
begin
var a:array[1..7] of integer;
var pr:=1;
for var i:=1 to 7 do
begin
a[i]:=readlninteger('Введите элемент массива');
pr*=a[i];
end;
writeln('Произведение:',pr);
end.
№2
begin
var a:array[1..20] of integer;
var k:=0;
for var i:=1 to 20 do
begin
a[i]:=2*i+sqr(i)-100;
if a[i]<0 then k+=1;<br>end;
writeln('Кол-во:',k);
end.