Разбить одномерный массив из 12 элементов на три строки и 4 столбца (сформировать двумерный массив).

@madam · Регистрация: 07.12.2011

Пожалуйста, помогите решить эту задачу!

@GoldenBoy · 14.12.2011, 19:59

Pascal

Var a:array[1..3,1..4] of integer;
    x:array[1..12] of integer;
    i,j,k:integer;
 
begin
writeln('Ìàññèâ X');
for i:=1 to 12 do
begin
x[i]:=random(11)-5;
write(x[i]:4);
end;
writeln;
i:=1; j:=1;
writeln('Ìàòðèöà À');
for k:=1 to 12 do
begin
a[i,j]:=x[k];
write(a[i,j]:4);
if (k=4) or (k=8) then
begin
writeln;
i:=i+1;
j:=j+1;
end;
end;
 
End.

@madam · 14.12.2011, 22:09 **[ТС]**

Спасибо - спасибо - спасибо!

@GoldenBoy · 14.12.2011, 22:11

3-ное пожалуйста!

@madam 0 / 0 / 0 Регистрация: 07.12.2011 Сообщений: 4
		1
	Разбить одномерный массив из 12 элементов на три строки и 4 столбца (сформировать двумерный массив). 14.12.2011, 19:17. Показов 2336. Ответов 3 Метки нет (Все метки) Пожалуйста, помогите решить эту задачу! 0

@madam 0 / 0 / 0 Регистрация: 07.12.2011 Сообщений: 4
	14.12.2011, 22:09 [ТС]	3
	Спасибо - спасибо - спасибо! 0

@GoldenBoy Goldeeeeeeen ! 245 / 237 / 186 Регистрация: 15.10.2011 Сообщений: 457
	14.12.2011, 22:11	4
	3-ное пожалуйста! 0

Опции темы