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

Question

Информатика

Аилтдин

5 июля, 07:42

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

+3

Ответы (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.