profile="http://gmpg.org/xfn/11"> Найти максимальный элемент первого столбца двумерного массива, паскаль. | Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Найти максимальный элемент первого столбца двумерного массива, паскаль.

Найти максимальный элемент первого столбца двумерного массива, паскаль.

program Task_Max7;

{задачи на числа паскаль с решением}
{Найти максимальный элемент первого столбца массива, паскаль.}
uses
  crt;

type
  mas = array[1..4, 1..3] of real;
var
  i, j: integer;
  i_Max: real;
  i_ArrNum: mas;
begin

  clrscr;
  WriteLn('Решение, найти максимальный элемент первого столбца массива:');
  WriteLn('Введите 12 (двенадцать) значений:');
  for i := 1 to 4 do
    for j := 1 to 3 do
      ReadLn(i_ArrNum[i, j]);
  i_Max := i_ArrNum[1, 1];
  for j := 1 to 3 do
    WriteLn('Элементы первого стобца массива = ', i_ArrNum[1, j]: 10: 2);
  j := 1;
  repeat // поиск только в первом столбце
    if i_Max < i_ArrNum[1, j] then
      i_Max := i_ArrNum[1, j]; //поиск максимального элемента в первом столбце
    j := j + 1;
  until j > 3;
  //Вывод на экран
  WriteLn('Максимальный элемент массива первого столбца = ', i_Max: 10: 2);

  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:
Найти максимальный элемент первого столбца массива, паскаль
Найти максимальный элемент первого столбца двумерного массива, паскаль.

Дополнительные материалы:
Найти минимальный элемент массива, паскаль.
Найти минимум и максимум в массиве — Pascal (Паскаль).
Найти минимальное число в массиве, паскаль.
Минимальное значение, которое может иметь число типа Integer в Паскале.
Найти минимальный элемент массива и его порядковый номер. Паскаль (Pascal).

Комментарии запрещены.