Действие компьютерного вируса состоит в том, что вместо букв «б», «в», «л», «о», «т» печатаются цифры, кроме цифры 0, причём разным буквам соответствуют разные цифры. Выясните, какие цифры каким буквам соответствуют, если известно, что: 1) сумма цифр слова «бот» равна 8; 2) сумма цифр слова «вол» равна 9; 3) сумма цифр слова «болт» равна 11; 4) сумма цифр слова «лото» равна 12. болт - бот = л, л = 11 - 8 = 3 вол = 9 во = вол - л = 9 - 3 = 6 лото =12 ото = лото - л = 12 - 3 = 9 бот=8, значит о > б на 1, л = 3, о = 2, б = 1, тогда т = 9 - 2 - 2 = 5, а - в = 6 - 2 = 4
Var a:array [0..10000] of integer;
b,c,n,i:integer;
begin
b:=0;
c:=0;
read (n);
For i:=n downto 1 do begin
read (a[i]);
If (a[i] mod 2 = 0) then
begin
b:=b+1;
c:=c+a[i];
end;
end;
Writeln ('Sum=',c,' Kol=',b,' SredA=',(c/b));
end.