Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > Двумерный массив Turbo Pascal

Автор: R.M. 11.5.2006, 10:19

Помогите пожалуйста. Начал изучать Паскаль т.к. понадобилось по учёбе и мне дали задачку по двумерным массивам - Найти min и max в двумерном массиве A(3*4).
В книге нету двумерных массивов поэтому немогу справиться. Решение нужно сегодня.

Автор: Snowy 11.5.2006, 10:51

Обычная школьная задачка на обход двумерного массива.
Пример быстрее накатать, чем найти поиском smile

Код


var
  i, j: integer;
  min, max: integer;
begin
  min := A[0, 0]; max := 0;
  for i := 0 to 2 do
    for j := 0 to 3 do
    begin
      if A[i, j] < min then min := A[i, j];
      if A[i, j] > max then max := A[i, j];
    end;  
end;

Это только поиск. Заполнение почти аналогично.
На выходе результат соответственно в min и max.

Автор: R.M. 11.5.2006, 11:48

Спасибо, лови + smile

Добавлено @ 12:01
Тока второй end c точкой smile