Скласти програму (pascal abc)на знаходження мінімального числа в двохвимірном масиві. приблизно написав але помилка..: program pr4; uses crt; const n=2; var b: array[1..n] of integer; min,i,j: integer; begin; for i: =1 to n do for j: =1 to n do begin; write('b[i]='); read ('b[i,j]); end; for i: =2 to n do for j: =2 to n do if b[i,j]
214
438
Ответы на вопрос:
Чесно кажучи, написано дуже "приблизно" : ) 1) слово "двовимірний" означає, що масив є таблицею (з рядками і стовпцями), а не те, що його довжина =2 елементи. тому значення n (рядок const n=2; ) краще замінити на щось быльше, хоча б 10. 2) у розділі var двовимірний масив описується так: var b: array[1..n, 1..n] of integer; (вважаємо масив квадратним) 3) бажано підкоректувати запрошення на ввід, тому що користувач бачить одне і те ж для кожного елемента: b[i]= потрібно написати так: write('b[',i,',',j,]='); read ('b[i,j]); - тут зайва лапка, має бути так read (b[i,j]); і бажано замість read використати readln, щоб кожне нове число користувач мав вводити з нового рядка. для навчального завдання ще краще не запитувати користувача вводити сто чисел, а заповнити масив програмно випадковими числами: randomize; b[i,j]: = random(101)-50; (задає числа від -50 до 50) 4) for i: =2 to n do for j: =2 to n do чому ти переглядаєш масив, починаючи з 2 рядка і 2-го має бути for i: =1 to n do for j: =1 to n do 5) if b[i,j]< min then min: =b[i,j]; - ти порівнюєш елемент b[i,j] зі змінною min, а чому вона рівна? де ти задаєш її значення? 6) ну і бажано вивести весь масив на екран, щоб користувач міг його бачити. ось виправлений варіант програми: program pr4; uses crt; const n=10; var b: array[1..n,1..n] of integer; min,i,j: integer; begin; randomize; for i: =1 to n do begin for j: =1 to n do begin b[i,j]: =random(101)-50; write(b[i,j]: 3, ' '); end; writeln; end; writeln; min: = b[1,1]; for i: =1 to n do for j: =1 to n do if b[i,j]< min then min: =b[i,j]; writeln('найменший елемент масиву min=',min); end.
Если ваше число представлено в 10 сс, то основания сс счисления, в которых запись 27 заканчивается на 3 равны 4,6,8,12,14,24.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
ВикаKull01.07.2021 21:11
-
youtubeadamchuk28.11.2021 16:41
-
karuna418.08.2021 11:37
-
jdjenud05.09.2020 10:26
-
margarita427817.01.2021 06:38
-
блеск430.01.2021 11:33
-
Матрос57306.04.2020 23:35
-
danilpro201731.08.2021 13:43
-
vladik3331631.08.2022 21:26
-
Zhuldyzovazarina18.01.2023 05:49
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.