Заполнить двумерный массив 3x4 случайными числами в интервале [-50..50] и отсортировать построчно по возрастанию.

Const   m = 3;   n = 4; var   a: array[1..m, 1..n] of integer;   i, j, k, t: integer; begin   randomize;   writeln('исходный массив');   for i : = 1 to m do   begin       for j : = 1 to n do       begin           a[i, j] : = random(101) - 50;           write(a[i, j]: 4)       end;       writeln   end;   { пузырьковая сортировка по возрастанию в строках }   for i: =1 to m do       for k : = 1 to n-1 do           for j : = 1 to n-1 do               if a[i,j] > a[i,j+1] then               begin t : = a[i,j]; a[i,j] : = a[i,j+1]; a[i,j+1] : = t end;   writeln('сортировка по строкам');   for i : = 1 to m do   begin       for j : = 1 to n do write(a[i, j]: 4);       writeln   end end. тестовое решение: исходный массив   41    5 -19  -6   46 -27  37    5   33  18 -39  -4 сортировка по строкам   -19  -6    5  41   -27    5  37  46   -39  -4  18  33

Program t1; var   i, j: integer;   mas: array [1..10] of integer; begin       randomize;       writeln ('сгенерированный масив: ');       for i : = 1 to 3 do             writeln;             for j : = 1 to 4 do             begin                     mas[i,j] : = random (100) - 50;                     write (mas[i,j]);               end;       end;       begin       for i: =1 to 3 do           for i: =1 to 3 do               for k: =1 to 3-i do                     if m[k] > m[k+1] then swap(mas[k],mas[k+1])               end           end;         end;       writeln ('отсортированный по возрастанию массив (построчно): ');       for i : = 1 to 3 do             writeln;             for j : = 1 to 4 do write (mas[i,j]);       end; end; end.

Const m=4; n=5; var  a: array[1..m,1..n] of real; i,j: integer; max: real; begin randomize; writeln('исходный массив: '); for i: =1 to m do   begin   for j: =1 to n do   begin     a[i,j]: =random(10);     write(a[i,j]: 5: 1);   end;   writeln;   end; max: =a[1,1]; for i: =1 to m do   for j: =1 to n do   if a[i,j]> max then max: =a[i,j]; writeln('max = ',max); for i: =1 to m do   for j: =1 to n do   if a[i,j]=max then a[i,j]: =a[i,j]/2; writeln('полученный массив: '); for i: =1 to m do   begin   for j: =1 to n do write(a[i,j]: 5: 1);   writeln;   end; end. пример: исходный массив:   1.0   9.0   1.0   9.0   8.0   4.0   4.0   5.0   9.0   9.0   6.0   3.0   6.0   0.0   6.0   6.0   7.0   3.0   6.0   9.0 max = 9 полученный массив:   1.0   4.5   1.0   4.5   8.0   4.0   4.0   5.0   4.5   4.5   6.0   3.0   6.0   0.0   6.0   6.0   7.0   3.0   6.0   4.5

Vara, b, c: integer; begina : = 18;   b : = 2;   a : = a * b;   b : = a mod 6;   c : = a - b; writeln('a = ', a); writeln('b = ', b);   writeln('c = ', c); end. ============================== ответ: a = 36b = 0c = 36 c int main(){         int a, b, c;     a = 18;       b = 2;       a = a * b;       b = a / 6;       c = a - b;           printf("a = %d, b = %d, c = %d", a, b, c); } ответ: a  =  36,  b  =  6,  c  =  30