Упорядочить каждый столбец матрицы по возрастанию. массив размером m×n, элементы которого датчиком случайных чисел на интервале [-17; 26]. программа выводит начальный вариант массива построчно, затем отсортированный массив построчно.

program nomerstolb;

var a: array[1..50,1..50] of integer;

b: array[1..50] of integer;

i, j, m, n, max, jmax: integer;

begin

write(‘сколько строк? ’); readln(m);

write(‘сколько столбцов? ’); readln(n);

for i: =1 to m do

begin

for j: =1 to n do

begin

write(‘a[‘,i,’,’,j,’]=’); readln (a[i,j]);

end;

for j: =1 to m do

begin

b[j]: =0;

for i: =1 to n do

if a[i,j]< 0 then b[j]: =b[j]+1;

end;

max: =b[1]; jmax: =1;

for j: =2 to n do

begin

if b[j]> max then

begin

max: =b[j]; jmax: =j;

end;

end;

writeln(‘наибольшее количество отрицательных элементов в ‘; jmax ; ‘столбце’);

end;

end.

9. упорядочить каждый столбец матрицы по возрастанию. массив размером мхn, элементы которого датчиком случайных чисел на интервале [-17; 26].

program porydok;

var a: array[1..50,1..50] of integer;

Элементы окна редактора Paint:

1 – строка заголовка (имя файла рисунка и затем название редактора);

2 – строка меню (команды Файл, Правка, Вид, Рисунок, Палитра и Справка);

3 - панель инструментов;

4 - палитру цветов;

5 - поле выбора ширины линии;

6 - горизонтальную и вертикальную полосы прокрутки;

7 - рабочее поле (рабочая область).

Управлять работой в графическом редакторе Paint можно посредством выбора команд из меню и пиктограмм панели инструментов. Существуют команды, вызываемые или только через меню, или только через панель инструментов.

Объяснение: