Var
i, n, k, a: integer;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
readln(a);
if (a mod 2 = 0) and (i mod 2 = 0) then
inc(k);
end;
writeln(k);
<span>end.</span>
===== PascalABC.NET =====
begin
var n := 22;
var a := ArrRandom(n, 0, 12);
a[a.High] := 11;
a.Println;
var s := 0;
for var i := 0 to a.High do
begin
if a[i] > 10 then
$'a[{i + 1}] = {a[i]} '.Print;
if a[i] mod 4 = 0 then
s += a[i]
end;
Writeln;
Println('Сумма', s)
end.
var a, i: integer;
begin
a := 1;
for i := 1 to 10 do
begin
writeln(a:3, ' ', a*a:5, ' ', a*a*a:8);
a := a + i;
end;
end.
Тестовое решение:
1 1 1
2 4 8
4 16 64
7 49 343
11 121 1331
16 256 4096
22 484 10648
29 841 24389
37 1369 50653
46 2116 97336
Очевидно, что условие дано некорректно. 2 бита - это не "его количество информации", а количество бит, отводимых для информации о цвете каждого пикселя (точки). Два бита позволяют записать двоичное число от 0 до 3, следовательно картинка может содержать до четырех цветов. Информационный объем составит 80х2=160 бит. В одном байте 8 бит, поэтому в байтах объем составит 160/8=20 (байт).
uses crt;
var i,sum,k: integer;
begin
sum:=0;
k:=0;
writeln('<em>Вводите числа. 0 - конец последовательности</em>');
repeat
read(i);
if i mod 2=1 then begin
sum:=sum+i;
inc(k);
end;
until i=0;
writeln;
writeln('<em>Среднее арифметическое нечетных чисел: </em>',sum/k:5:3);
<span>end.</span>