Составьте программку, которая наполняет массив а [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 2lt;gt;0 then begin b[i]:=a[i]; writeln(b[i]=, b[i]); end; Поиск нечетных частей массив а, формирование нового массива b из нечетных чисел и вывод элементов массива b на экран

end.