Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
whitreek4223
25.02.2022 22:30 •
Информатика
Какие ошибки были допущены
👇
Увидеть ответ
Открыть все ответы
Ответ:
илья33567б0
25.02.2022
Результат работы и листинг программы в приложениях.
Написано в PascalABC.NET но должно работать во всех Паскалях.
----------------------------
PROGRAM A20;
CONST
max = 100;
TYPE
matrix = array[1..max,1..max]of shortint;
VAR
ar:matrix;
num:byte;
i,j:byte;
a,b,c:byte;
q:boolean;
BEGIN
repeat
// num := 5;
write('Введите размер матрицы n=');
readln(num);
for i:=1 to num do begin
for j:=1 to num do
read(ar[i,j]);
end;
i:=1;//диагональ
q:=true;
while q and (i<num) do begin
j:= i+1;//колонка и ряд
while q and (j<=num) do begin
a := ar[j,i];
b := ar[i, j];
if (ar[j,i] <> ar[i, j])
then q:=false;
j:=j+1;
end;
i:=i+1;
end;
if q then
writeln('YES')
else
writeln('NO');
write('Введите 1 чтобы продолжить. 0 чтобы завершить');
readln(i)
until(i=0);
END.
4,5
(80 оценок)
Ответ:
yananesteshl
25.02.2022
Результат работы и листинг программы в приложениях.
Написано в PascalABC.NET но должно работать во всех Паскалях.
----------------------------
PROGRAM A20;
CONST
max = 100;
TYPE
matrix = array[1..max,1..max]of shortint;
VAR
ar:matrix;
num:byte;
i,j:byte;
a,b,c:byte;
q:boolean;
BEGIN
repeat
// num := 5;
write('Введите размер матрицы n=');
readln(num);
for i:=1 to num do begin
for j:=1 to num do
read(ar[i,j]);
end;
i:=1;//диагональ
q:=true;
while q and (i<num) do begin
j:= i+1;//колонка и ряд
while q and (j<=num) do begin
a := ar[j,i];
b := ar[i, j];
if (ar[j,i] <> ar[i, j])
then q:=false;
j:=j+1;
end;
i:=i+1;
end;
if q then
writeln('YES')
else
writeln('NO');
write('Введите 1 чтобы продолжить. 0 чтобы завершить');
readln(i)
until(i=0);
END.
4,6
(50 оценок)
Это интересно:
К
Кулинария-и-гостеприимство
22.07.2021
Как сделать печенье «Отпечаток»...
К
Кулинария-и-гостеприимство
27.04.2022
Лимонно-медовая вода: не только вкусно, но и полезно...
Д
Дом-и-сад
08.12.2021
Как сделать печь для плавки металла...
М
Мир-работы
05.04.2023
Как пережить увольнение: советы профессионалов...
Д
Дом-и-сад
27.10.2021
Как найти распределительный щиток или блок предохранителей...
К
Компьютеры-и-электроника
28.03.2021
Как удалить историю веб поиска в Google: простые шаги для защиты вашей конфиденциальности...
К
Компьютеры-и-электроника
27.03.2021
Как поймать Суикуна в игре Покемон - Кристальная версия...
О
Образование-и-коммуникации
07.08.2020
Как нарисовать собачью морду: советы и инструкции...
К
Компьютеры-и-электроника
18.05.2020
Хотите вести эффективный компьютерный дневник? Начните с этой статьи!...
З
Здоровье
09.04.2023
Непереносимость глютена (клейковины): как ее распознать и что делать?...
Новые ответы от MOGZ: Информатика
katemcgrat
28.05.2023
Файл размером 1500 кбайт передается через некоторое соединение в течение 75 секунд. определите размер файла (в кбайт), который можно передать через это соединение...
Frosterion
28.05.2023
Как называется бренд кторый написан на букве w вот такие буквы в,е,к,т,о,т,а,н,к...
wista196
28.05.2023
10) передача данных через adsl-соединение заняла 2 минуты. за это время был передан файл, размер которого 3 750 кбайт. определите минимальную скорость (бит/c), при...
sashasevsova
28.05.2023
55 . какое значение получит переменная y после выполнения алгоритма? х: =1 у: =2*х у: =у+3 у: =у*х у: =у+4 у: =у*х у: =у+5 запишите логическое выражение,истинное...
мам65
24.06.2021
Автоматическое устройство осуществило перекодировку информационного сообщения на язык,первоначально записанного в 8-битной кодировке кои-8,в 16-битный код unicode.при...
Алмат1335
19.05.2020
1.укажите значения переменных к, l, m, n, при которых логическое выражение (k→не m) v (не l∧m∧k) v не n ложно....
GORDON228band
25.05.2022
Решите в столбик с фото буду : 152228: 76 =...
валерка1973
25.05.2022
Составте логическую цепочку расположите причины и последствия открытий и изменений в хозяйстве и обществе которые в итоге к росту городов европпы в 11-12 веков...
daniilkartel
25.05.2022
Ккомпонентам внутренней среды организма можно отнести: а)кровь б)лимфу в)тканевую жидкость г)слюну...
zemkina347
25.05.2022
Схема предложения аня,аля и арина умны...
MOGZ ответил
Опредилите падение и уклон реки герируд, если известны абсолютная...
Фермер производит растительное масло и разливает его в бидоны...
Спишите, заменяя глаголы 3-го лица глаголами 2-го лица, подчеркните...
Составьте семейный диалог с вводными словами. в голову ничего...
Образуйте существительные от данных слов; функциональный , сильный,...
Решите уравнение: 2*(0,6x-3)=3*(0,1x+3)...
Выражения: ctg(1 - cos2a) (cos a/1 + sin a + cos a/1 - sin a)sin2a...
Какое самое большое озеро дальнего востока...
Почему андрей и пьер безухов друзья...
Сколько целых чисел рассположено между числами -15,1 и -6...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
Написано в PascalABC.NET но должно работать во всех Паскалях.
----------------------------
PROGRAM A20;
CONST
max = 100;
TYPE
matrix = array[1..max,1..max]of shortint;
VAR
ar:matrix;
num:byte;
i,j:byte;
a,b,c:byte;
q:boolean;
BEGIN
repeat
// num := 5;
write('Введите размер матрицы n=');
readln(num);
for i:=1 to num do begin
for j:=1 to num do
read(ar[i,j]);
end;
i:=1;//диагональ
q:=true;
while q and (i<num) do begin
j:= i+1;//колонка и ряд
while q and (j<=num) do begin
a := ar[j,i];
b := ar[i, j];
if (ar[j,i] <> ar[i, j])
then q:=false;
j:=j+1;
end;
i:=i+1;
end;
if q then
writeln('YES')
else
writeln('NO');
write('Введите 1 чтобы продолжить. 0 чтобы завершить');
readln(i)
until(i=0);
END.