Линейная таблица содержит 30 элементов. Составьте алгоритм заполнения данной таблицы...

Question

Линейная таблица содержит 30 элементов. Составьте алгоритм заполнения данной таблицы конкретным числовыми значениями, если известно, что значение элемента равно его удвоенному порядковому номеру.

Answer 1

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