Составьте пожалуйста программу в Паскале Заполнить массив А пятью произвольными целыми...

Question

Составьте пожалуйста программу в Паскале
Заполнить массив А пятью произвольными целыми числами. Изменить каждый элемент массива так, чтобы он был умножен на свой порядковый номер. Исходный и полученный массив вывести на экран.
Пример:
Исходный массив: 2 6 8 9 12
Полученный массив: 2 12 24 36 60

Answer 1

Для случайных чисел:

var
   a: array[1..5] of integer;
   i: integer;
begin
   randomize;
   for i:=1 to 5 do
      a[i] := random(100);
   for i:=1 to 5 do
      write(a[i], ' ');
   writeln;
   for i:=1 to 5 do
      a[i] := a[i] * i;
   for i:=1 to 5 do
      write(a[i], ' ');
end.

Для ручного заполнения:

var
   a: array[1..5] of integer;
   i: integer;
begin
   for i:=1 to 5 do
      readln(a[i]);
   for i:=1 to 5 do
      write(a[i], ' ');
   writeln;
   for i:=1 to 5 do
      a[i] := a[i] * i;
   for i:=1 to 5 do
      write(a[i], ' ');
end.