Определить наибольшее из значений элементов, расположенных, в красной части матрицы

Категория: Delphi/Pascal
2011-08-26 20:47:00

Дана матрица A(N,N). Определить наибольшее из значений элементов, расположенных, в красной части матрицы

code: #pascal
  1. var
  2.   a:array[1..100,1..100]of integer;
  3.   i,j,max,n:integer;
  4. begin
  5.   write('vvedite razmer matrici: ');
  6.   readln(n);
  7.   for i:=1 to n do
  8.   for j:=1 to n do
  9.   begin
  10.     write('vvedite ',j,' element ',i,' stroki: ');
  11.     readln(a[i,j]);
  12.   end;
  13.   max:=a[1,n];
  14.   writeln('vivod matrici');
  15.   for i:=1 to n do
  16.   begin
  17.     for j:=1 to n do
  18.     begin
  19.       if not((i>n div 2) and (j>n div 2))
  20.         and ((i>2) or (j>2)) and (a[i,j]>max) then max:=a[i,j];
  21.       write(a[i,j],' ');
  22.     end;
  23.     writeln;
  24.   end;
  25.   writeln('naibolshiy element v dannoi oblasti: ',max);
  26.   readln;
  27. end.
Поделиться:

Похожие статьи:

теги: массив, двумерный массив, студенты, консольное приложение, матрица