Question

Напишите программу формирования и вывода массива размером 6х3, каждые три последовательных элемента в строке которого составлены по следующему правилу: 1-й равен квадрату суммы индексов следующего элемента. 2-й равен удвоенной сумме текущих индексов 3-й равен разности двух предыдущих элементов. паскаль

Answer 1

// PascalABC.NET 3.2, сборка 1425 от 22.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=new integer[6,3];
  for var i:=0 to 5 do begin
    a[i,0]:=sqr(i+3);
    a[i,1]:=2*(i+3);
    a[i,2]:=a[i,0]-a[i,1];
    end;
  a.Println(3)
end.

Результат
  9  6  3
 16  8  8
 25 10 15
 36 12 24
 49 14 35
 64 16 48

Answer 2

Const
   N = 6;
   M = 3;
Var
   A:array[1..N,1..M] of integer;
   i:integer;
Begin
For i:= 1 to N do
    Begin
    A[i,1]:=sqr(i+2);
    A[i,2]:=2*i+4;
    A[i,3]:=A[i,2]-A[i,1];
    WriteLn(A[i,1]:3,' ',A[i,2]:3,' ',A[i,3]:3);
    End;
End.

Результат работы программы:

  9   6  -3
 16   8  -8
 25  10 -15
 36  12 -24
 49  14 -35
 64  16 -48