Нужна программа вывода трехмерного массива в паскале!
Нужна программа вывода трехмерного массива в паскале!
Гость
Ответ(ы) на вопрос:
Гостьvar
i,j,k:integer;
a:array[1..3,1..4,1..5]of integer;
begin
for i:=1 to 3 do
begin
writeln('Слой ',i);
for j:=1 to 4 do
begin
for k:=1 to 5 do
begin
a[i,j,k]:=random(10);
write(a[i,j,k],' ');
end;
writeln;
end;
writeln;
end;
end.
Не нашли ответ?
Похожие вопросы