Question

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

Answer 1

Сделал задачу по условию, которое понял.
var 
a: array[1..3, 1..6] of integer; 
i, j: integer;
begin 
Writeln('Введите 6 чисел через Enter '); 
for i := 1 to 3 do   
for j := 1 to 6 do     
case j of       
1, 4: begin Readln(a[i, j]);a[i, j] := 2 * a[i, j]; end;       
2, 5: a[i, j] := sqr(i + j - 1);       
3, 6: a[i, j] := j mod 2;     
End; 
Writeln('Сформированный массив ');      
for i := 1 to 3 do   begin   
for j := 1 to 6 do     
write(a[i, j], ' ');   
Writeln;
end;
end.

Answer 2

Если что не так, объясняй переделаю.