двумерные массивы

[JOHN1992]

Ввести двумерный массив Аn*m(n m большие буквы),вывести его.Возвести в квадрат те элементы,модуль которых принадлежит интервалу [0;(lminl+lmaxl)/2] . Определить сколько таковых элементов оказалось в массиве. нужно написать програму в паскале заранее спасибо если можно ещё бы в идела блок схему)

[Desha]

uses crt;
const n=5;
      m=6;
var a:array[1..n,1..m] of integer;
    i,j:byte;
    k,l:integer;
    min,max:integer;
Begin
     clrscr;
     randomize;

     {заполнение массива}
     for i:=1 to n do
         for j:=1 to m  do
             a[i,j]:= random(50)-1;

      {вывод массива}
        writeln(' Дан масив (5*6)');
       for i:=1 to n do   begin
         for j:=1 to m  do
             write(a[i,j]:5);
             writeln;
         end;
         min:=a[1,1];
         max:=a[1,1];

      {поиск min}
         for i:=1 to n do
             for j:=1 to n do
             if a[i,j]<min then min:=a[i,j];

      {поиск max }
         for i:=1 to n do
             for j:=1 to n do
             if a[i,j]>max then max:=a[i,j];
             
         //writeln('min ',min);  для просмотра
         //writeln('max ',max);

         {поиск интервала}
          k:=abs(min)+abs(max);
          k:=k div 2;

          //writeln(k);
          l:=0;

          {поиск элементов, входящих в интервал}
          for i:=1 to n do
              for j:=1 to m do
                  if (abs(a[i,j])>0) and (abs(a[i,j])<k) then begin
                     l:=l+1;
                     a[i,j]:=sqr(a[i,j]);
                   end;
                   
      {вывод полученного массива}
       writeln('Получен массив:');
      for i:=1 to n do   begin
         for j:=1 to m  do
             write(a[i,j]:5);
             writeln;
             end;
End.

блок схемы рисуйте сами, там не сложно.

[JOHN1992]

Сообщение от Desha

uses crt;
const n=5;
      m=6;
var a:array[1..n,1..m] of integer;
    i,j:byte;
    k,l:integer;
    min,max:integer;
Begin
     clrscr;
     randomize;

     {заполнение массива}
     for i:=1 to n do
         for j:=1 to m  do
             a[i,j]:= random(50)-1;

      {вывод массива}
        writeln(' Дан масив (5*6)');
       for i:=1 to n do   begin
         for j:=1 to m  do
             write(a[i,j]:5);
             writeln;
         end;
         min:=a[1,1];
         max:=a[1,1];

      {поиск min}
         for i:=1 to n do
             for j:=1 to n do
             if a[i,j]<min then min:=a[i,j];

      {поиск max }
         for i:=1 to n do
             for j:=1 to n do
             if a[i,j]>max then max:=a[i,j];
             
         //writeln('min ',min);  для просмотра
         //writeln('max ',max);

         {поиск интервала}
          k:=abs(min)+abs(max);
          k:=k div 2;

          //writeln(k);
          l:=0;

          {поиск элементов, входящих в интервал}
          for i:=1 to n do
              for j:=1 to m do
                  if (abs(a[i,j])>0) and (abs(a[i,j])<k) then begin
                     l:=l+1;
                     a[i,j]:=sqr(a[i,j]);
                   end;
                   
      {вывод полученного массива}
       writeln('Получен массив:');
      for i:=1 to n do   begin
         for j:=1 to m  do
             write(a[i,j]:5);
             writeln;
             end;
End.

блок схемы рисуйте сами, там не сложно.

пасиб большое