Заполните и выведите ** экран массив со следующими числами: Индекс элемента 1 2 3 4 5 6 7...

Question

Заполните и выведите на экран массив со следующими числами: Индекс элемента 1 2 3 4 5 6 7 8 9 10 Значение элемента 2 4 6 8 10 12 14 16 28 20 Закономерность: для каждого элемента массива его значение равно удвоенному индексу.

Answer 1

Var x:array [1..10] of integer; i:integer;
begin
for i:=1 to 10 do begin
 x[i]:=i*2;
write(x[i],' ');
end;
end.