Question

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

Answer 1

program zadacha;vara: array[1..10] of byte;i: byte;
beginfor i:=1 to 10 do begina[i]:=random(10);write(a[i]:4);end;
writeln();
for i:=1 to 10 do beginif a[i] mod 2=0 then a[i]:=a[i]+1;write(a[i]:4);end;
end.