Дан целочисленный одномерный массив, заполненный с клавиатуры. сформируйте новый массив из значений исходного массива,

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

b: array[1..100] of integer;

n, i, sum: integer;

begin

writeln(\'Введите количество элементов в массиве\');

readln(n);

writeln(\'Заполните массив с клавиатуры\');

for i := 1 to n do readln(a[i]);

for i := 1 to n do if (i mod 10 = 0) and (a[i] > 20) then sum := sum + 1;

writeln(\'Количество элементов больше 20 и с индексами, кратными 10 равно \', sum);

end.