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

Question

epreghed231 · Answer

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.

Ответы и объяснения 1

Знаете ответ? Поделитесь им!

Есть сомнения?