Напишите программку формирования и вывода массива размером 6x3, каждые три последовательных
Напишите программку формирования и вывода массива размером 6x3, каждые три поочередных элемента в строке которого составлены по последующему правилу: 1-й равен удвоенному числу, введенному с клавиатуры; 2-й равен квадрату суммы индексов предшествующего элемента; 3-й равен остатку от деления индекса текущего элемента на 2.
Задать свой вопрос
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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.