Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
alamakarova
16.05.2023 14:03 •
Информатика
Решить по информатике(двухмерный массив). заполнить массив следующим образом: 12 24 120 2 14 110 1 13 109
Показать ответ
Ответ:
Arturkim04
07.09.2020 22:52
Const
n = 10;
m = 12;
var
a: array[1..m, 1..n] of integer;
i, j: integer;
begin
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := 12 * j - (i - 1);
write(a[i, j]:3, ' ');
end;
writeln;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
tamila2002саша2004
13.02.2022 01:28
Определите назначение приведенной ниже функции и про- верьте ее работо...
chiginavera
15.06.2020 11:18
Вычислить значение функции y=3x^3+2x^2 для значений x ∈ [-10;10] с шагом...
LikaKostukova
07.06.2023 06:16
Составить алгоритм в системе команд исполнителя R, по которому число 10 будет преобразовано в число 96....
ЛевкоЛюдмила
01.04.2021 07:25
Переведите подождите пока фото грузится...
bobkovaolesya
30.05.2023 12:48
Можете объяснить, что значить СКОПИРОВАТЬ СОДЕРЖИМОЕ РЕЛИЗА? А потом Из папки NoDVD скопировать содержимое (CODEX) в рабочую директорию игры? Там скачалось 1.American...
nikakri14
12.12.2021 19:49
Как будет преобразовано число 60, если исполнитель выполнит алгоритм: aabab....
ARTEMONUM
17.04.2023 02:36
Хелп любые 2. Информатика...
Supermatematik1245
10.10.2020 07:40
Информатика ( П.О.М.О.Г.И.Т.Е)...
KsennyTAR
08.02.2020 08:41
Хитрая сортировка Пусть у нас есть следующий список, в котором элементы -- tuple из строк: items = [( one , two ), ( three , four ), ( five , six ), ( string , a )] Мы...
dasha1975
07.03.2020 04:14
Чему равна сумма цифр числа 123? А числа -123? Совпадают ли ваши результаты с результатами работы программы? Как можно объяснить и исправить ошибку в программе?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n = 10;
m = 12;
var
a: array[1..m, 1..n] of integer;
i, j: integer;
begin
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := 12 * j - (i - 1);
write(a[i, j]:3, ' ');
end;
writeln;
end;
end.