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

Question

Степан Губанов

Информатика

1 августа, 09:45

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

+1

Ответы (1)

Знаешь ответ на этот вопрос?

Chagi · Answer 1

var a: array[1 ... 6, 1 ... 3] of integer;

i, j, n: integer;

begin

writeln ('Введите n');

j : = 1;

for i : = 1 to 6 do begin

readln (n);

n : = n * 2;

a[i, j] : = n;

end;

j : = 2;

for i : = 1 to 6 do a[i, j] : = (i + j) * (i * j);

j : = 3;

for i : = 1 to 6 do a[i] : = i mod 2;

for i : = 1 to 6 do for j : = 1 to 3 do write (a[i, j]:4);

end.