Предмет: Информатика, автор: danilovicdanil88

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


restIess: язык?
danilovicdanil88: Инфармитка в паскале
danilovicdanil88: Информатика в паскале*

Ответы

Автор ответа: vimmortal2
0

Программа:

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.

Похожие вопросы
Предмет: Русский язык, автор: евгения2151
Предмет: Русский язык, автор: andruschenko20peje04