Задать на значение ответ
Если на= Токио,то
Говорить «Молодец» в течении 2 секунд
Иначе
Говорить «Столица Японии-Токио» в течении 2 секунд
Var b,c,k:integer;
a:array[1..100] of integer;
d:real;
begin
k:=0;
b:=0;
for c:=1 to 100 do
begin
a[c]:= random(41)-20;
writeln('a[',c,']= ',a[c]);
if a[c]>0 then
begin
b:=b+a[c];
k:=k+1;
end;
end;
d:=b/k;
writeln('Среднее арифметическое элементов массива равняется ',d);
end.<span>
</span>
A b d
7 4 6
7 5 5
7 6 4
8 2 7
8 3 6
8 4 5
8 5 4
8 6 3
8 7 2
9 1 7
9 2 6
9 3 5
9 4 4
9 5 3
9 6 2
9 7 1
10 1 6
10 2 5
10 3 4
10 4 3
10 5 2
10 6 1
11 1 5
11 2 4
11 3 3
11 4 2
11 5 1
12 1 4
12 2 3
12 3 2
12 4 1
13 1 3
13 2 2
13 3 1
14 1 2
14 2 1
15 1 1
Ответ 37
62(n) = 80(10)
6*n+2 = 80
n = 13
Ответ: 13