ИНФОРМАТИКА с объяснением:

1) все элементы окажутся равны 9

Объяснение:

Заполнение массива:

для i от 0 до 10 выполнить a[i] = i - 1

i = 0       a[0] = 0 - 1 = -1

i = 1        a[1] = 1 - 1 = 0

i = 2       a[2] = 2 - 1 = 1

и т.д.

Нетрудно заметить, что все элементы будут на 1 меньше своего индекса

Изменение массива:

для i от 10 до 1 выполнить a[i-1] = a[i]

i = 10       a[10-1] = a[10]       a[9] = a[10]          a[9] = 9, т.к. первоначально элемент на минус один меньше своего индекса

i = 9       a[9-1] = a[9]         a[8] = a[9]            a[8] = 9, т.к. a[9] = 9

i = 8       a[8-1] = a[8]         a[7] = a[8]            a[7] = 9, т.к. a[8] = 9

и т.д.

Нетрудно заметить, что все элементы будут равны 9

program xxx;

  var i, n, s, k : integer;

                        a : array [1..20] of integer;

begin

  write('введите n=');

  readln(n)

  writeln('введите элементы массива а: ' );

  for i: =1 to n do

        readln(a[i]);

  s: =0;

  k: =0;

  for i: =1 to n do

      if a[i] mod 8 = 0 then begin s: =s+a[i]; k: =1 end;

  if k=0 then write ('элементов кратных 8 - нет')

                      else write('сумма элементов кратных 8 =', s);

  readln

end.

моя неделя проходит загружено. половину дня я провожу в школе, потом , репетиторы, выйти на улицу, покататься на санках, поваляться в снегу времени практически а мы что-то говорим о здоровой чтобы я изменил? я бы ввёл электронные учебники и ведь это так бы время, не надо было бы писать в тетрадях уроки, набрал на компьютере   и всё. оставалось бы больше свободного времени для прогулок и общения с друзьями.