Question

составить программу, которая формирует массив из 10 случайных целых чисел, принадлежит промежутку [0; 12], выводит на экран исходный массив, затем преобразовывает его, увеличивая чётные значения элементов на 10, и выводит на экран преобразованный массив

Answer 1

Программа:

Pascal:

var

 arr: array[1..10] of integer;

 i: integer;

begin

 for i := 1 to 10 do arr[i] := random(0,12);

 writeln(arr);

 for i := 1 to 10 do if arr[i] mod 2 = 0 then arr[i] := arr[i] + 10;

 writeln(arr);

end.