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

Обозначим массив из шестидесяти чисел буквой а. Порядковый номер элементов массива - буквой 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 20 then begin b[i]:=a[i]; writeln ('b[i]=', b[i]); end; {Поиск нечетных элементов массив а, формирование нового массива b из нечетных чисел и вывод элементов массива b на экран}

end.