Введите с клавиатуры одномерный числовой массив из 9 элементов. Сверните его в матрицу размером 3x3, разместив первую тройку элементов в 1-й строке матрицы, 2-ю тройку - во второй строке, 3-ю тройку - в третьей строке.
Введите с клавиатуры одномерный числовой массив из 9 элементов. Сверните его в матрицу размером 3x3, разместив первую тройку элементов в 1-й строке матрицы, 2-ю тройку - во второй строке, 3-ю тройку - в третьей строке.
Гость
Ответ(ы) на вопрос:
Гостьprogram qq;
var a:array[1..9] of string;
b:array[1..3,1..3] of string;
i, j, k:integer;
begin
i:=0;
for i:=1 to 9 do readln(a[i]);
i:=0;
j:=0;
k:=1;
for i:=1 to 3 do
for j:=1 to 3 do
begin
b[i, j]:=a[k];
k:=k+1;
end;
for i:=1 to 3 do
for j:=1 to 3 do
begin
write(b[i, j]);
if (j=3) then writeln();
end;
end.
Не нашли ответ?
Похожие вопросы