tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Сформулируйте квадратную
Сформулируйте квадратную матрицу.на главной диагонали 5,остальные 2.
pziipzii
3 07.07.2019 10:10
0
Ответы
mihanesterov
30.07.2020 17:54
Const n = 5;
Var i,j : Byte;
m : array[1..n,1..n] of Integer;
Begin
For i:=1 to n do
For j:=1 to n do If i<>j then m[i,j]:=2 else m[i,j]:=5;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
новичок586
15.03.2021 09:03
1. Установи соответствие между операторами присваивания и значениями переменной Z: ...
MrMixa008
15.03.2021 09:04
Дан отрезок AB. Одновременно выехали по две машины с обеих сторон. В точку O машина из точки A прибыла в два раза быстрее. Нужно найти. Скорость машины из точки Б. Формула...
WWW2023
15.03.2021 09:06
У=(х2+х+1)cosx производную...
Elnura85
15.03.2021 09:06
Вычислите результат условного деления и остаток от деления а)118//7б)205%10...
dakusy2006
15.03.2021 09:07
Файл размером 1100 Кбайт передаётся через некоторое соединение в течение 210 секунд. Определи размер файла (в Кбайт), который можно передать через это соединение за 84...
rafik14
15.03.2021 09:11
Очень ! Нужны скрины из паскаля ! Задание 1 Рассчитать значения y при каждом х. х = 3, 4, ..., 15: y = 7t3 - 6t + 10, если t = x - 2. Задание 2 Составить программу, которая...
FleachBeast
15.03.2021 09:19
для того чтоб найти робота соперника нужен?...
cccggg93
15.03.2021 09:20
Дан список случайных целых чисел, замените все четные числа списка нулями и выведите их количество...
waleruwka
15.03.2021 09:22
Запишите код программы на языке программирования Пайтон m=5n+2/3n-2,2...
kessaa65
15.03.2021 09:24
Решить по ПИТОНУ две задачи 3. Вам дана строка «Благотворительность». Составьте программу, которая из данной строки составит новую строку «отвратительно».4. Написать программу,...
Популярные вопросы
По какой причине сменяются день и ночь? Планеты обращаются вокруг Солнца.Солнце...
3
Знайдіть периметр паралелограма 0,7 0,9...
2
На какую тему можно составить рассказ по данной схеме Обьясни, почему...
3
Пружина жорстокості якої 40H/м....
2
Task 3. Writing. Complete the sentences. Use the following words: ...
2
Моделдердің бір бірінен ерекшелігін жазыныз...
2
б) Хозяин выгуливал собаку т часов со скоростью 4 км/ч. 1) Составьте...
1
В прямоугольном треугольнике ABC (C = 90 °) BC = 5 см, ABC = 45 °....
3
Обчисліть масову частку Оксигену в вапняку, формула якої СаСО3...
3
Рівняння реакційСПИРТ — АЛЬДЕГІД— КАРБОНОВА КИСЛОТА— ЕСТЕР...
2
Var i,j : Byte;
m : array[1..n,1..n] of Integer;
Begin
For i:=1 to n do
For j:=1 to n do If i<>j then m[i,j]:=2 else m[i,j]:=5;
end.