Дан массив натуральных чисел. Заполнить с помощью датчика случайных чисел. Подсчитать количество четных чисел от 1 до 10.

const R=20; / /размер исходного массива

Var a: array [1 ... R] of integer;

i, sum: integer;

begin

//заполняем массив случайными числами от 0 до 100

For i:=1 to R do a[i]:=random (100);

//выводим получившийся массив

writeln ('Исходный массив');

For i:=1 to R do write (a[i], ' ');

Writeln ();

//считаем количество чётных чисел от 1 до 10

sum:=0; / /обнуляем сумму

For i:=1 to R do

begin

if (a[i] mod 2 = 0) {если число чётное} and ((a[i]>=1) or (a[i]<=10)) {и в заданном промежутке} then

sum:=sum+1; / /увеличиваем счётчик на 1

end;

//выводим сумму

Writeln ('Количество четных чисел от 1 до 10: ', sum);

end.