Помогите составить программу в Паскале по задаче:

Question

Создать массив А [1..7] с помощью генератора случайных чисел и выведите его на экран. Увеличтьте все его элементы в 2 раза.

manunich · Accepted Answer

var m:array [1..7] of Integer;i:Integer;
begin
randomize;
for i:=1 to 7 do m:=Random(50);
for i:=1 to 7 do write(m,' '); //Первый вывод, смотрим на сгенерированный массив
for i:=1 to 7 do m:=m*2;
writeln;
for i:=1 to 7 do write(m,' '); //Результат умножения каждого элемента на два
end.

ex_grf · Answer

Стучи в агент.