Сколько раз будет выполнен цикл for n := 1 to 46 do?

46 раз, если внутри цикла нету прерываний или изменений значения счётчика n

Объяснение:

первым человеком, если доверять , кому все таки удалось расшифровать   египетские иероглифы, был французский ученый египтолог жан-франсуа шампольон (1790-1832гг). он постарался составить полный список иероглифов (доступных и понятых им на те времена) и их греческих эквивалентов, создав таким образом основу для перевода всех остальных египетских иероглифических текстов.

program gh;

    var a: array[ 1..10] of integer;

                i: integer;

begin

  for i: =1 to 10 do

        begin

              a[i] : = random(20) + 20;

              write(a[i]);

        end;

end.