Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Sasha0102051
03.05.2023 16:02 •
Информатика
Заполнить массив паскаль 20 ! ) 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5
Показать ответ
Ответ:
никита3429
07.10.2020 14:04
//Pascal
const
n = 5;
m = 5;
var
i, j, k: integer;
a: array [1 .. n, 1 .. m] of integer;
begin
for i := 1 to 5 do
begin
for j := 1 to 5 do
begin
A[i, j] := j;
write(A[i, j]:3);
end;
writeln;
end;
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ЧерепашкаВася
05.05.2023 09:16
4. Определите команды, относящиеся к категории «Событие» (указатьномера...
Marry888
15.11.2021 19:10
Классикалық әдіс дегеніміз не? ...
Sofiya1509
05.05.2023 09:16
Автоматическое устройство осуществило перекодировку информационного сообщения на русском языке, первоначально записанного в 16 - битовом коде Unicode, в 8 - битовую...
lolilol2
19.05.2022 04:29
Опредили назначение команды. Название команды: назначение: Идти 10 шагов ? Барабану 48 играть 0,2тактов ? Выдать случайное от 1 до 10 ?...
defordd
27.04.2020 10:18
Яке забезпечення використовують, що мають освоїти і знати ті, хто займається створенням найбільш відомих і якісних комп ютерних ігор....
1553VinyaPyhtya
18.12.2020 14:37
1.При игре в кости используется пирамидка с четырьмя гранями. Выпадение каждой грани кубика равновероятно. Сколько информации получит игрок при выпадении грани с 3...
Zsd19
02.07.2020 14:05
Заполните пропуски в блок-схеме, описывающей решение следующей задачи: Ввести с клавиатуры два целых числа: m, n 0 Если m =n, товывести 1, иначе – любое другое число.3...
BvbNo9
17.06.2021 08:27
Нужно создать на питоне «A»: Построить класс Попугай (Parrot), который умеет говорить какую-то фразу, заранее определённую при описании класса. Пример: p = Parrot()...
BalKA13
14.07.2020 08:02
Ожидалось имя процедуры или функции var c, a, Exp, u, y: real; begin write ( Введите c= ); readln (c); Exp:= 2.7; a:= Exp*(-c) + c ; u:= (a+c)/(a*c); y:= cos(u) *...
TanyaSha300
22.02.2021 21:55
Дан фрагмент программы: if cost 1000: print( Скидка 0% ) elif cost 2000: print( Скидка 2% ) elif cost 5000: print( Скидка 5% ) else: print( Скидка 10% ) Какую скидку...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const
n = 5;
m = 5;
var
i, j, k: integer;
a: array [1 .. n, 1 .. m] of integer;
begin
for i := 1 to 5 do
begin
for j := 1 to 5 do
begin
A[i, j] := j;
write(A[i, j]:3);
end;
writeln;
end;
readln;
end.