1 - в
2 - в
3 - б (если только текстовый редактор - не стандартный блокнот)
4 - б
5 - а
6 - в
7 - а
8 - б*
Можно поставить "вечный цикл" с задержкой и перерисовывать ему глаза раз в секунду. Самый простой способ, который пришёл в голову.
Исходник в приложении к ответу.
42 = 32+8+2
то есть состоит оно из 2в пятой степени + 2 в третьей + 2 в первой
значит единицы надо ставить во второй (первая степень двоек), четвертый (третья степень двоек) и шестой (пятая степень двоек) разряды
Это писаться будет так:
101010
Ура!)
Var
a: array[1..10] of integer;
i, max, imax: integer;
begin
for i:=1 to 10 do
readln(a[i]);
max := 0;
for i:=1 to 10 do
if (a[i] > max) and (a[i] > 4) and (a[i] < 9) then
begin
max := a[i];
imax := i;
end;
writeln(imax);
end.