Найти максимальный элемент в заштрихованной части матрицы - Turbo Pascal

Формулировка задачи:

Помогите решить задачку. нужно составить схему алгоритма гл. программы и подпрограммы, главную программу и подпрограмму. Самостоятельно выбрать значения исходных данных. При решении задачи использовать подпрограмму-процедуру. Обмен данными между главной программой и подпрограммой при помощи глобальных переменных. Есть матрица A(5х5). Нужно найти max элемент в заштрихованной части За ранее спасибо.


textual

Код к задаче: «Найти максимальный элемент в заштрихованной части матрицы - Turbo Pascal»

program sasha0808;
{$APPTYPE CONSOLE}
uses SysUtils;
type arr = array [1..5,1..5]of Integer;
var mas:arr;
    max_i,max_j,i,j,max:Integer;
 
procedure array_in;
begin
  for i:=1 to 5 do
    begin
      for j:=1 to 5 do
        begin
          write('Array [',i,'][',j,'] = ');Readln(mas[i,j]);
        end;
    end;
end;
procedure array_out;
begin
  for i:=1 to 5 do
    begin
      for j:=1 to 5 do
        begin
          write(mas[i,j],' ');
        end;
      Writeln;
    end;
end;
procedure array_max;
begin
  for i:=1 to 5 do
    begin
      for j:=1 to 5 do
        begin
          if ((1<=i) and(i<=3) and ((1<=j) and (j<=2))) then
            begin
 
            end
          else
            begin
              if (max<mas[i,j]) then
                begin
                  max:=mas[i,j];
                  max_i:=i;
                  max_j:=j;
                end;
            end;
        end;
    end;
end;
begin
  array_in;
  Writeln(' Array ');
  array_out;
  max:=mas[1,4];max_i:=1;max_j:=4;
  array_max;
  Writeln('Max = ',max,'[',max_i,',',max_j,']');
  readln;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 3.800 из 5

Источник
Похожие ответы