Question

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

Answer 1

1) var a:array[1..10]of integer;

   i:integer;

begin

write('ishodni massiv: ');

for i:=1 to 10 do

 begin

  a[i]:=random(10)+1;

  write(a[i],' ');

 end;

writeln;

write('izmenenni massiv: ');

for i:=1 to 10 do

 begin

  if a[i] mod 2=0 then

   a[i]:=a[i]+1;

  write(a[i],' ');

 end;

end.