СОР ПО ИНФОРМАТИКЕ 8 КЛАСС

Ms dos qbasic 1.0: cls randomize timer input "k = ", k input "l = ", l dim x! (k, l) for i = 1 to k       for j = 1 to l               x(i, j) = rnd * 21 - 10               print using "###"; x(i, j);               print ; " ";       next j       print next i for i = 1 to l * 4 - 1       print ; "_"; next i print for n = 1 to l       for i = 1 to l - n - 1               if x(i, 2) < x(i + 1, 2) then               b = x(i, 2)               x(i, 2) = x(i + 1, 2)               x(i + 1, 2) = b               end if       next i next n for i = 1 to k       for j = 1 to l               print using "###"; x(i, j);               print " ";       next j       print next i end

var

 a: array[1..20, 1..20] of integer;

 n, m, i, j, jm: integer;

begin

 randomize;

 writeln('Введите количество строк и столбцов соответственно: ');

 readln(n, m);

 writeln('Сгенерированная матрица: ');

 for i := 1 to n do

 begin

   jm := 1;

   for j := 1 to m do

   begin

     a[i, j] := random(99);

     write(a[i, j]:4);

     if (i mod 2 = 0) and (a[i, jm] > a[i, j])

       then jm := j;

   end;

   if i mod 2 = 0 then write('  min=a[', i, ',', jm, ']=', a[i, jm]);

   writeln;

 end;

 readln;

end.