В таблице 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.​

мак119    1   27.05.2020 12:39    2