Войти Регистрация Спроси ai-bota

Сформировать квадратную матрицу порядка n по заданному образцу: n 0 0 0 0 0 0 n-1 0 0 0 0 0 0 n-2 0 0 0 . . . . 0 0 0 0 2 0 0 0 0 0 0 1

Показать ответ

Ответ:

Vanea228

08.07.2020 01:24

Const
n = 10;

var
i, j: integer;
a: array[1..n, 1..n] of integer;

begin
for i := 1 to n do
    for j := 1 to n do
      if i = j then a[i, i] := n - i + 1
      else a[i, j] := 0;
writeln;
for i := 1 to n do
begin
    for j := 1 to n do write(a[i, j]:4);
    writeln
end
end.

10   0   0   0   0   0   0   0   0   0
   0   9   0   0   0   0   0   0   0   0
   0   0   8   0   0   0   0   0   0   0
   0   0   0   7   0   0   0   0   0   0
   0   0   0   0   6   0   0   0   0   0
   0   0   0   0   0   5   0   0   0   0
   0   0   0   0   0   0   4   0   0   0
   0   0   0   0   0   0   0   3   0   0
   0   0   0   0   0   0   0   0   2   0
   0   0   0   0   0   0   0   0   0   1

0,0(0 оценок)

Популярные вопросы: Информатика

Gusuanskiy

09.04.2022 10:08

For21. Дано целое число N ( 0). Используя один цикл, найти сумму 1 + 1/(1!) + 1/(2!) + 1/(3!) + . . . + 1/(N!) (выражение N! — N–факториал — обозначает произведение...

Satana6666666661666

02.01.2023 08:50

Составьте таблицу истинности: 1 (А В)   (С В); 2 (АВ)(СА)...

Лизатян4

08.04.2023 07:28

If21. Даны целочисленные координаты точки на плоскости. Если точка совпадает с началом координат, то вывести 0. Если точка не совпадает с началом координат, но лежит...

ninaemelyanova2

07.01.2023 19:34

Boolean21◦ . Дано трехзначное число. Проверить истинность высказывания: «Цифры данного числа образуют возрастающую последовательность» Язык программирования C#...

strange0311

03.10.2021 22:13

Между населёнными пунктами a, b, c, d, e построены дороги,протяжённость которых (в километрах) в таблице. определите длину кратчайшего пути между пунктами a и е,...

лошадь20

01.05.2021 07:03

Гибкие магнитные дискеты относятся к внутренний памяти или же внешнний памяти...

2001snk

28.08.2022 10:00

2.даны слова,которые содержат латинские буквы:abbas,algo,info,expo,demo,delta. а)закодируй с их двоичного кода с использованием таблицы ASCII.б)посчитай количество...

математик215

23.10.2021 19:12

Программа Паскаль ближайшая к дому булочная работает с 7:00 до 19:00 и закрывается на перерыв с 13:00 до 15:00. Хлебный магазин, расположенный дальше, работает с...

Сырочег

11.04.2021 06:18

Какую строку будет занимать фамилия Малышева после проведения сортировки по возрастанию в поле класс? (В ответе запиши только число.) Номер Фамилия Год рождения...

anna7251

22.05.2022 14:55

Знатоки Этапы, которых стоит придерживаться при разработке любых баз данных: •Знакомство с исходными данными. •Разработка и создание отчетов для вывода данных...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку