Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
zzzzzzya2017
16.05.2021 08:40 •
Информатика
Нужна программа вывода трехмерного массива в паскале!
Показать ответ
Ответ:
nika344245335
06.07.2020 21:51
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
Оля030905
14.11.2020 03:28
Найти число столбцов элементы которого по возрастанию паскаль...
Эрбол11111
17.02.2022 04:37
Сколько молей содержится в 28 кг азота??? ...
5v09
20.09.2021 08:12
11. Творче завдання. Уявіть, що відносна атомна маса Оксигену становить 100.Обчисліть значення відносних атомних мас, які матимуть утакому випадку елементи Нітроген, Ферум, Купрум....
БатонБагетович
20.09.2021 08:12
из одного пункта в одном направлении одновременно выехали велосипедист и легковой автомобиль.Велосепедист ехал со скоростью 14 км/ч,а автомобиль скоростью в 6 раз больше.Какое...
bosschornoguz
20.09.2021 08:12
Состовить стихотворение со словами норка, норка(животное), лисичка(гриб), лисичка(животное) ...
INKOGNIT009
15.12.2022 05:47
Ортағасырлық мемлекеттердің ыдырауының негізгі және жанама себептерін анықтыңыз. ЛЮБОЙ МЕМЛЕКЕТ...
Savasansa
02.01.2021 23:30
5 (34) + (226)орнегін -bjөрнегінің мәнін табыңыз, мұндағыав ,[3] комектесіп жіберіңдерші ...
Mint231
21.11.2022 18:38
Даю 30б. Розкладіть многочлен на множники: 1) m^2-16m+64 2)a^3-4a 3)-16+25a^2 4)y^3-1000...
timon201
16.01.2021 21:35
Берілген өлең шумағы кімге тиесілі Тал шыбыққа мал сақтап Тал қамалға жан сақтап Қайырылып қайыр қылуға Қылығың жоқ сұраған...
Vadimlvo11
04.07.2020 14:17
Прослушай текст «Кто такие программисты. Плюсы и минусыпрофессии».Определи тему текста.о профессии программистатайны поварского делаПроверить...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.