ПОМОГИТЕ Составьте программу которая заполняет массив a[1..10] случайными целыми числами...

Question

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

Answer 1

Program Пишите_на_каком_языке_отвечать;
uses System.Math;
var
  a: array [1..10] of integer;
i: integer;
begin
for I := low(A) to High(A) do
begin
  a[I] := randomrange(1, 10) ;
  if a[I] mod 2 = 0 then
    inc(a[I]);
end;
end.