Question

ПРОШУУУУУ, ПОМОООГИТЕЕЕ!!
Составить программу на языке Паскаль
С помощью одного цикла сформировать и вывести два одномерных массива размерностью по 8 элементов каждый. Массивы заполнить по формулам:
a[i]=i^2+1
b[i]=2*i-1

Answer 1

program od;
var
  a, b: array[1..8] of integer;
  i: integer;
begin
  for i := 1 to 8 do
    begin
      a[i] := Sqr(i) + 1;
      b[i] := 2 * i - 1;
    end;
end.