Const m=10;
var
a:array[1..m] of integer;
i,sum,proz:integer;
begin
sum:=0;
proz:=1;
for i:=1 to m do
begin
read(a[i]);
if a[i]>0 then
sum:=sum+a[i]
else
ifa[i]<0 then
proz:=proz*a[i];
end;
writeln('Сумма положительных чисел= ',sum,' Произведение отрицательных чисел= ',proz);<span>end.</span>
Program n1;
var a,sum,k: integer;
begin
readln(a);
sum:=0;
k:=0;
while a<>0 do begin
if (a<0) and (a mod 6=0) then begin
k:=k+1;
sum:=sum+a;
end;
readln(a);
end;
writeln(sum/k);
end.
Program n2;
var a,sum: integer;
begin
readln(a);
sum:=0;
while a<>0 do begin
if (a mod 2=0) and (a mod 3=0) then sum:=sum+a;
readln(a);
end;
writeln(sum);
end.
Ответ: 2025 Кбайт или 2073600 байт
1920 * 1080 = 2073600 точек
256 вариантов цвета кодируется 8 битами или 1 байтом (2⁸ = 256)
2073600 точек = 2073600 байт или 2073600 / 1024 = 2025 Кбайт
// PascalABC.NET 3.4
begin
ReadSeqIntegerWhile(n->n<>0).Average.Println
end.