Программа формирует из 12 случайных целых чисел из промежутка [1, 6]. Преобразовать массив, увеличив каждый элемент в два раза и вывести на экран исходный и преобразованный массив.

Question

Информатика

Аретта

19 января, 17:01

Программа формирует из 12 случайных целых чисел из промежутка [1, 6]. Преобразовать массив, увеличив каждый элемент в два раза и вывести на экран исходный и преобразованный массив.

+1

Ответы (1)

Знаете ответ на вопрос?

Биада · Answer 1

var a:array [1 ... 12] of integer;

i:integer;

begin

for i:=1 to 12 do a[i]:=random (6) + 1;

writeln (a) ;

for i:=1 to 12 do a[i]:=a[i]*2;

writeln (a)

end.