Ответ:
В 1296000 пикселей 1,29 мегапикселей
Объяснение:
ЕСЛИ a > 1 И a <= 50 ТО ...
№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;
end;
writeln('Кол-во:',k);
end.