Question

Скласти програму (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 dofor j:=1 to n dobegin;write('B[i]=');read ('B[i,j]);end;for i:=2 to n dofor j:=2 to n doif B[i,j]<min then min:=B[i,j];write('Найменший елемент масиву min=',min);end.

Answer 1

Чесно кажучи, написано дуже "приблизно" :)

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.

Answer 2

Для того чтобы написать программу на Pascal ABC для поиска минимального числа в двумерном массиве, нужно внести некоторые изменения в ваш код. Вот исправленный вариант программы:

Program pr4;
uses crt;
const
  n = 2;
var
  B: array[1..n, 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, ',', j, ']=');
      readln(B[i,j]);
    end;

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.

Исправления: 1. Исправлена ошибка в объявлении массива: заменена запятая на точку с запятой в определении диапазона. 2. Заменена ошибка в строке с чтением элементов массива: заменена запятая на точку с запятой внутри оператора `readln`. 3. Инициализирована переменная `min` значением первого элемента массива перед началом поиска минимума. 4. Исправлены индексы в цикле поиска минимума: изменены диапазоны циклов на `1 to n`.

Теперь программа должна корректно работать и находить минимальный элемент в двумерном массиве.