Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
EzVikaEz
12.05.2022 22:21 •
Информатика
Получить квадратную матрицу порядка n: k 0 n-1 n n-2 n-1 n 1 2 может кто знает как написать программу в паскале?
Показать ответ
Ответ:
snysor
25.08.2020 17:23
Const n=6;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do
for j:=1 to i do a[i,j]:=n-i+j;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:3);
writeln;
end;
end.
Пример:
6 0 0 0 0 0
5 6 0 0 0 0
4 5 6 0 0 0
3 4 5 6 0 0
2 3 4 5 6 0
1 2 3 4 5 6
0,0
(0 оценок)
Популярные вопросы: Информатика
клубничка114
26.11.2021 11:35
Какой объем видеопамяти необходим для хранения изображения при условии, что разрешение монитора равно 1024 х 512 пикселей, а количество используемых цветов – 8? выразить ответ...
vipaldybaeva
26.11.2021 11:35
*рисунок размером 2048 х4096 пикселей сохранили в виде файла размером 9м байт. какое количество информации было использовано для кодирования цвета 1 пикселя? каково возможное...
Alniri
11.12.2021 19:00
Для логического выражения из номера 3 построить логическую схему....
Hi12349
31.12.2021 06:50
Задание 5. Климат Представьте в виде таблицы следующий текст (информация приведена за 2004 г.): В Марий-Эл количество осадков в июле составило I 79 мм. В Пермской области средняя...
dobromirovamar
15.02.2020 20:27
Тест сұрақтарына жауап беріңіз...
морж14
31.01.2020 20:20
Одноканальный звук оцифровался с частотой 1024 Гц. После записи 4 сек получился файл размером 12 Кбайт. Определите разрядность кодирования в битах....
acre5422какаха
26.01.2022 19:45
НАПИШИТЕ РЕФЕРАТ Темы реферата Содерж ние реферируемого текста Тема № 1. История развития вычис- Характеристика поколений лительной техники компьютеров Тема № 2. Устройства...
vika78678
05.06.2021 13:53
Вмассиве найдите минимальный и максимаксимальный элементы среди элементов с чётными индексами . в паскале...
Джміль
18.06.2020 01:50
Написать программу, которая вычисляет среднюю t воздуха за 10 дней, выведет на экран максимальное и минимальное значение температуры. ( данные вводятся с клавиатуры)...
Роналду111111
26.05.2020 04:51
Даны три целых числа. выведите значение наименьшего из них. нужно cделать в python 30 ! ответь первым и все будет ок...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do
for j:=1 to i do a[i,j]:=n-i+j;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:3);
writeln;
end;
end.
Пример:
6 0 0 0 0 0
5 6 0 0 0 0
4 5 6 0 0 0
3 4 5 6 0 0
2 3 4 5 6 0
1 2 3 4 5 6