Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
АйданкаТоктогулова
26.03.2020 23:54 •
Информатика
Впаскале двухмерный массив размерностью 6 и 4 заполнить 1 строку единицами , 2 строку двойками, 3 строку тройками.
Показать ответ
Ответ:
hdjdhd1
07.07.2020 13:25
Var
i,j:integer;
a:array[1..6,1..4]of integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do a[i,j]:=i;
for i:=4 to 6 do
for j:=1 to 4 do a[i,j]:=random(10);
writeln('Массив: ');
for i:=1 to 6 do
begin
for j:=1 to 4 do write(a[i,j]:3);
writeln;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
снежана183
24.01.2021 20:33
создай презентацию на тему птицы наши друзья Напиши названия на 3 языках Добавь соответствующие рисунки и примени к ним различные эффекты анимации оформить презентацию по твоему...
НастяСонная
04.09.2022 17:43
Решите задачу в виде таблицы или на рисунке самом За не правильно выданный ответ либо оффтоп буду кидать жалобу...
альбина330
30.04.2023 06:38
Включаю компьютер, вылазиет это,нажимаю не отправлять,выключается,нажимаю послать информацию об этой проблеме,пишет windows не может автоматически устранить неполадки этого компьютера,что...
Kotic777
23.03.2022 01:41
Определите,какое количество чисел k,для которых следующая программа выведет такой же результат,что и для k=10? ,подробно и с прокруткой программы...
76938
09.05.2021 17:40
Опишите пошагово установку WINDOWS SERVER 12 на виртуальной машине...
naval2018
09.08.2020 17:15
Своими словами описать, в чем разница между Software, Hardware и Brainware. Привести примеры по каждому термину....
MadMax818
23.04.2020 03:28
Решите, и проверьте те, что я сделала...
sveta19772011owor7w
10.04.2023 12:33
[pascalabc] знайти, в якому місці введеного рядка вперше зустрілась літера а...
3482785525
06.12.2022 06:28
Які клавіші потрібно натиснути щоб об єднати абзаци?...
Simpson011
24.10.2020 19:30
Записать в тетрадь по музыкальной рассказ о побочной партии (р.н.п. во поле береза стояла ) из 4 части симфонии № 4 п.и. чайковского (прослушивание с 1: 33 по 2: 55); надо! нормальный...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,j:integer;
a:array[1..6,1..4]of integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do a[i,j]:=i;
for i:=4 to 6 do
for j:=1 to 4 do a[i,j]:=random(10);
writeln('Массив: ');
for i:=1 to 6 do
begin
for j:=1 to 4 do write(a[i,j]:3);
writeln;
end;
end.