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

элементы с чётными значениями на 1. Если элементы с чётными значениями отсутствуют, оставить массив без изменений.

2. Cоставьте программу, которая заполняет массив a [1 ... 10] случайными целыми числами в диапазоне от 1 до 10, затем меняет местами первый элемент со вторым, третий с четвертым и т. д. Выведите на экран исходный и полученный массив.

Question

Информатика

Элеонора

21 февраля, 18:29

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

элементы с чётными значениями на 1. Если элементы с чётными значениями отсутствуют, оставить массив без изменений.

2. Cоставьте программу, которая заполняет массив a [1 ... 10] случайными целыми числами в диапазоне от 1 до 10, затем меняет местами первый элемент со вторым, третий с четвертым и т. д. Выведите на экран исходный и полученный массив.

+5

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