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

1-й равен квадрату суммы индексов следующего элемента.

2-й равен удвоенной сумме текущих индексов

3-й равен разности двух предыдущих элементов.

Паскаль

Question

Информатика

Авдоня

3 апреля, 15:27

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

1-й равен квадрату суммы индексов следующего элемента.

2-й равен удвоенной сумме текущих индексов

3-й равен разности двух предыдущих элементов.

Паскаль

+1

Ответы (1)

Знаете ответ?

Ванята · Answer 1

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