Question

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

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.