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

Question

Информатика

Васылка

4 ноября, 04:42

Программа формирует из 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.