Нужно поменять местами макс. и мин. значения. что не так? program matrica; uses crt; const n=3; m=4; a=-20; b=20; var i, j, min, max, t: integer; y: array [1..n, 1..m] of integer; begin clrscr; randomize; writeln('matrica y'); min: =0; max: =0; t: =0; for i: =1 to n do begin for j: =1 to m do begin y[i,j]: =trunc((b-a)*random+a); write(y[i,j]: 6); if y[i,j]max then max: =y[i,j]; end; writeln; end; writeln('минимальное значение = ', min); writeln('максимальное значение = ', max); t: =min; min: =max; max: =t; for i: =1 to n do begin for j: =1 to m do begin write(y[i,j]: 6); end; writeln; end; readkey; end.
232
259
Ответы на вопрос:
Program matrix; var a: array[1..10, 1..10] of integer; i, j, mini, minj, maxi, maxj, temp: integer; begin randomize; for i : = 1 to 10 do begin for j : = 1 to 10 do begin a[i, j] : = random(100); write(a[i, j], ' '); end; writeln; end; mini : = 1; minj: =1; maxi : = 1; maxj: =1; for i : = 1 to 10 do for j : = 1 to 10 do begin if a[i, j] < a[mini,minj] then begin mini : = i; minj : = j; end; if a[i, j] > a[maxi,maxj] then begin maxi : = i; maxj : = j; end; end; writeln('min = ',a[mini,minj],' это ',mini,' ряд ',minj,' столбца.' ); writeln('max = ',a[maxi,maxj],' это ',maxi,' ряд ',maxj,' столбца.' ); temp : = a[maxi, maxj]; a[maxi, maxj] : = a[mini, minj]; a[mini, minj] : = temp; writeln; for i : = 1 to 10 do begin for j : = 1 to 10 do write(a[i, j], ' '); writeln; end; readln; end. temp - переменная для временного хранения минимальных и максимальных элементов.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
AZINO777704.09.2022 17:17
-
veronikadasha806.06.2022 10:36
-
Redll12.03.2020 09:57
-
илья0609200106.06.2022 03:03
-
Annsad1212127.08.2021 19:58
-
Jenellya19.01.2021 18:39
-
irinaa1026.09.2022 16:41
-
123289014.01.2020 05:26
-
KotBosilio29.07.2022 11:25
-
bekker22204.08.2021 23:04
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.