Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10,затем преобразовывает

Обозначим массив из шестидесяти  чисел буквой а. Порядковый номер элементов массива – буквой i, а значения элементов массива – a[i]. Будем использовать оператор цикла с параметром for. Так как у нас 10 элементов массива, то параметр i будет изменяться от 1 до 10.Тогда программа на языке программирования Pascal  ABC может выглядеть так:

program zadaca;

uses crt;

var a: array[1..10] of integer; {Описание массива a}

b: array[1..10] of integer; {Описание массива b }

i: integer; {Описание параметра i }

begin

for i:=1 to 10 do

a[i]:=random(10-1+1)+1; { Формирование массива a случайным образом}

for i:=1 to 10 do

write(a[i],\' \'); { Вывод элементов сформированного массива a на экран}

writeln;

for i:=1 to 10 do

if a[i] mod 2=0 then writeln(\'a[i]=\', a[i]);{ Поиск четных элементов массива а и вывод их на экран}

writeln;

for i:=1 to 10 do

if a[i] mod 2<>0 then begin b[i]:=a[i]; writeln(\'b[i]=\', b[i]); end; {Поиск нечетных элементов массив а, формирование нового массива b из нечетных чисел и вывод элементов массива b на экран}

end.