Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
SUPREMcccр
18.11.2021 12:17 •
Информатика
Дана квадратная целочисленная матрица размера 4х4. заменить нулями элементы матрицы, лежащие на главной диагонали. в bordland paskal . на двумерный массив
Показать ответ
Ответ:
YaShKa111111
22.06.2020 17:08
Const
n = 4;
var
a: array[1..n, 1..n] of integer;
i, j: integer;
begin
for i := 1 to n * n do
a[i mod n + 1, (i-1) div n + 1] := random(10);
for i := 1 to n do
begin
writeln();
for j := 1 to n do
begin
if i = j then a[i, j] := 0;
write(a[i, j]:3);
end;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Luba0111
19.04.2020 16:29
Составить в pascal abc через 3 месяца работы вы решили сходить в отпуск. вам должны выплатить отпускные в размере среднемесячной зарплаты. напишите программу, которая позволит...
00svetochka00
27.05.2020 00:59
С ПРОГРАММОЙ Федя совсем недавно поступил в лучший вуз страны. В особенности ему стала интересна кафедра изучения счастливых чисел, то есть тех чисел, которые состоят только...
Sonya1233210
03.09.2021 19:16
1. X=(A- C)+(A- B) (над каждой скобкой знак отрицания; вначале обязательно упростить)2. 2+3+5...
mumuminecraft
18.06.2022 23:34
Как представляется десятичное число 8 в 16-ной, 8-ной и 2-ной системах счисления?...
veip0
20.01.2022 06:40
Квадратный лист бумаги сложи пополам,затем ещё раз пополам и т.д.через сколько складываний,после разварачивания листа ,получится,что на листе будет много малых...
arisha0081
04.02.2021 00:42
что в это коде не так . вот условие задачи заранее . С++ Напишите программу, которая возвращает 1, если пользователь ввел слово, начинающееся на гласную букву русского алфавита,...
dilinur15
15.10.2020 20:58
Человек может получить информацию разными путями: с органов...
лсагамлснс
31.03.2022 03:32
При сохранении и копиравании файлов на другой компьютер возможно что файлы не будут открываться? что нужно сделать чтобы этого не произошло? что нужно учитывать при сохранении...
alyapareczkaya
31.03.2022 03:32
Напишите программу, которая вводит два целых числа и находит их произведение, не используя операцию умножения. учтите, что числа могут быть отрицательными. java...
KalipsoMirai
12.05.2020 12:34
При скрещивании дегетерозиготного растения горох получены органищмы, имеющие красные и белые цветы в соотношении 9:7. Определите генотип организмов с красными цветками. 1)АаВb...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n = 4;
var
a: array[1..n, 1..n] of integer;
i, j: integer;
begin
for i := 1 to n * n do
a[i mod n + 1, (i-1) div n + 1] := random(10);
for i := 1 to n do
begin
writeln();
for j := 1 to n do
begin
if i = j then a[i, j] := 0;
write(a[i, j]:3);
end;
end;
end.