Var k, s: integer; begin s: =0; k: =0; while s < 100 do begin s: =s+k; k: =k+4; end; write(k); end.ответ: var n, s: integer; begin n : = 1; s : = 0; while n < = 100 do begin s : = s + 30; n : = n * 2 end; write(s)end.ответ: var s, n: integer; begin s : = 47; n : = 1; while s > 0 do begin s : = s - 9; n : = n + 4 end; writeln(n)end.ответ:

int n=convert.toint32(console.;

            int [,] a=new int[n,n];

             

            random random = new random();

            for (int i = 0; i < n; i++)

            {

                for (int j = 0; j < n; j++)

                {

                    a[i, j] = random.next(-10,10);

                }

            }

            console.writeline("ваша матрица");

            for (int i = 0; i < n; i++)

        {

                for (int j = 0; j < n; j++)

                    console.write("{0}{1}", a[i, j], "\t");

            console.writeline();

        }

           

            int min = a[0, 0];

            for (int i = 0; i < n; i++)

           

                for (int j = 0; j < n; j++)

               

                    if (min > a[i, j]) { min = a[i, j]; }

            for (int i = 0; i < n; i++)

                for (int j = 0; j < n; j++)

                    if (min == a[i, j]) { a[i, j] = 0; }

            console.writeline("минимальный элемент");  

            console.writeline(min);

           

            console.writeline("исходная");

             

            for (int i = 0; i < n; i++)

            {

                for (int j = 0; j < n; j++)

                   

                    console.write("{0}{1}",   a[i,j], "\t");

                 

                    console.writeline();

                 

            }

                     

                 

            console.readline();

type  

  tarray = array [1..50,1..50] of longint;

var

  a : tarray;

  n,m,i,j : longint;

begin

  readln(n,m);

  for i: =1 to n do

    for j: =1 to m do read(a[i,j]);

  for i: =1 to n do

    for j: =1 to m do

      if a[i,j]< 0 then a[i,j]: =a[i,j]*a[i,j];

  for i: =1 to n do

    begin

      for j: =1 to m do write(a[i,j],' ');

      writeln;

    end;

end.

вместо знака ? поставь максимальные значения n и m.