Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Annpetushok
10.02.2020 13:48 •
Информатика
Дана матрица z(3.3) заменить все на нули все её элементы, расположенные на главной диагонали. преобразованную и исходную матрицу вывести по строкам
Показать ответ
Ответ:
yan551029
24.06.2020 13:30
Var a,b,i,min,j,sum:longint;
m:array[1..3,1..3] of longint;
begin
for i:=1 to 3 do
for j:= 1 to 3 do
read(m[i,j]);
for i:=1 to 3 do
m[i,i]:=0;
for i:=1 to 3 do
begin
writeln;
for j:= 1 to 3 do
write(m[i,j],' ');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
8cvinka8
02.03.2021 13:18
Какие записи удовлетворяют следующему условию: ГОД ИЗДАНИЯ =2016 АND АВТОР=Толстой Л.Н.? В поле ответа введите номер записи. При наличии нескольких записей, которые...
stich3918
20.10.2022 13:33
Существует таблица с пользователями сайта в OpenOffice Base со следующими полями: ФИО, Год рождения Адрес. Следует нати все записи пользователей, чья дата рождения...
Адувалие
27.06.2020 22:21
D. Странная функция ограничение по времени на тест1 секунда ограничение по памяти на тест256 мегабайт вводстандартный ввод выводстандартный вывод Один известный математик...
AnastasiaBA
06.03.2021 15:45
Что из перечисленного ниже можно отнести к графическим объектам? рисунок доматекст в учебникедиаграмма результатов футбольного матчаграфик температуры за май...
andreybrake
26.04.2020 09:06
12б. 1.Рядок таблиці – це: А Опис однієї властивості для всіх об’єктів таблиці Б Опис одного з об’єктів за всіма властивостями В Опис графічних об’єктів Г Система...
Rushana14
26.04.2020 09:06
Как сделать чтобы было как на картинке, у меня слово БИЗНЕС продвинулась на право Как сделать чтобы было как на картинке, у меня слово БИЗНЕС продвинулась >...
nalimovshurik
26.04.2020 09:06
У комірку В3 записана формула = С$2+$D3+2. Який вигляд набуде формула після копіювання її в комірку В2?...
YounMing
13.07.2020 01:55
Даны действительные числа a1, a2, … , an Известно, что a1 0 и что среди a2, a3, … есть хотя бы одно отрицательное число. Пусть a1, …, aj — члены данной 28 последовательности,...
Dinara55
13.10.2022 17:17
вас, нужно решить .в волшебной стране раз в неделю все маги работают в высотном офисном здании. особенность офисного здания состоит в том, что в нем нельзя пользоваться...
bakulya2005ma
13.10.2022 17:17
кто шарит ! y=(a+b+c)*(a+b) а=1,в=0,с=0 вторая скобка -над буквой а и в чёрточка . и одна общая черта над всем выражением . вообщем ,это информатика(9 класс ) ,тема:...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
m:array[1..3,1..3] of longint;
begin
for i:=1 to 3 do
for j:= 1 to 3 do
read(m[i,j]);
for i:=1 to 3 do
m[i,i]:=0;
for i:=1 to 3 do
begin
writeln;
for j:= 1 to 3 do
write(m[i,j],' ');
end;
end.