Нарисовать блок-схему алгоритма по готовой программе.

[Чешир]

Задача:.Ввести с клавиатуры матрицу D1[N,M]. Определить максимальный элемент и его порядковый номер для каждого столбца матрицы. N, m вводятся с клавиатуры. 0<n<30, 0<m<10.

var
   i,j,n,m,mi,fi:integer;
   d1:array [0..30,0..10] of integer;
begin
  write('Введите размер массива N: ');
  readln(n);
  write('Введите размер массива M: ');
  readln(m);
  if (n > 0) and (n < 30) and (m > 0) and (m < 10) then
  begin
    for i := 1 to n do
    begin
      for j := 1 to m  do
      begin
        write('d1[', i, ',', j, ']=');
        readln(d1[i, j]);
      end;
 
    for j := 1 to m  do
    begin
      mi := d1[1, j];
     fi:=1;
      for i := 2 to n do
      if mi < d1[i, j] then
        begin
          mi := d1[i, j];
          fi := i;
        end;
      writeln('Для столбца ', j, ' максимальный элемент: ', mi, ' с индексом:', fi);
    end;
  end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[BDA]

FCEditor Вам в помощь.