1)заполните массив случайными числами до n. 2)заполните массив нат. рядом чисел - 1,2,. 3)заполните массив с клавиатуры. 4)среднее арифметическое элементов, которые кратны 2. быстрее пож

Const n=10; var i,s,k: integer;         a: array [1..n] of integer; begin  for i: =1 to n do begin                            // 1)  //случайные числа                              a[i]: =random(20); //используя функцию randomize генерируем случайные числа                                 write(a[i],' ');                             //2)натур. ряд чисел                              a[i]: =i;     //присваиваем элементу массива его номер                                write(a[i],' ');                             //3)заполнить с клав.                              write('введите ',i,' число массива ');                             readln(a[i]);                               //4)  сред. ариф. кратн 2                              a[i]: =random(20);     //создадим рандомный массив                               write(a[i],' ');     // выведем на экран                              if a[i] mod 2 = 0 then begin //если кратно 2,                                                                 s: =s+a[i];     //считаем сумму всех чисел кратных 2                                                                 k: =k+1;       // считаем кол-во таких чисел                                                                end;                               end; //2 стоки ниже относятся только к 4 пункту    writeln;   writeln('среднее арифметическое элементов, кратных 2 = ',s/k); //ниже относится к ручному вводу  writeln;   for i: =1 to n do write(a[i],' '); end.как-то так) старался некоторые моменты пояснять комментариями

// pascalabc.net 3.3, сборка 1600 от 23.12.2017 // внимание! если программа не работает, обновите версию! begin   var b: =readarrreal(8);   writeln('введен массив'); b.println end. пример -3.2 0 12 -7 0.003 12.43 3.141593 11 введен массив -3.2 0 12 -7 0.003 12.43 3.141593 11