В таблице Dat представлены данные о количестве голосов, поданных за 10
исполнителей народных песен (Dat[1] — количество голосов, поданных за первого
исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет
напечатано в результате работы следующей программы.

Var k: integer; m: real;
Dat: array[1..10] of integer;
Begin
Dat[1]:= 16; Dat[2] := 20;
Dat[3]:= 20; Dat[4] := 41;
Dat[5]:= 14; Dat[6] := 21;
Dat[7]:= 28; Dat[8] := 12;
Dat[9]:= 15; Dat[10] := 35;
m := 0;
for k := 1 to 10 do
m := m+ Dat[k];
m := m /k;
writeln(m);
End.​

Var a:array [1..20] of integer;
i,p:integer;
n:real;
m:longint;
begin
n:=0;
p:=0;
m:=1;
write ('Массив: ');
for i:=1 to 20 do
begin
a[i]:=random(101)-50;
write (a[i],' ');
end;
for i:=1 to 20 do
begin
n:=n+a[i];
end;
n:=n/20;
writeln;
writeln;
write ('Среднее арифметическое = ',n);
for i:=1 to 19 do
begin
if a[20]<>a[i] then p:=p+1;
end;
writeln;
write ('Кол-во чисел отличных от последнего в массиве = ',p);
for i:=1 to 20 do
begin
if a[i]<0 then m:=m*a[i];
end;
writeln;
write ('Произведение отрицательных чисел массива = ',m);
end.

2,0,334

Объяснение:

Выпишем первые 10 строк и посчитаем количество символов a, b и c

i                          a b c

1 acac                 2 0 2

2 abcabc                2 2 2

3 accacc                2 0 4

4 abccabcc        2 2 4

5 acccaccc        2 0 6

6 abcccabccc        2 2 6

7 aa        2 0 8

8 abab       2 2 8

9 aa        2 0 10

10 abab 2 2 10

Как видим, a=2 и не изменяется, b принимает значение 0 для нечетных строк и 1 для четных строк, с принимает значение i+1 для нечетных строк и i для четных.

333 - нечетное число, поэтому b=0, а c=333+1=334