Написать программу (в pascal) и составить блок-схему по : в двумерном массиве произвольной размеренности подсчитать количество элементов, равных наибольшему элементу в этом массиве. вывести значение наибольшего элемента.

Алгоритм ввод  массива  a[n,m] max : =  a[1,1]; k  : =  1; p  : =  1; s  : =  0; алгоритм ввод массива a[n,m] max : = a[1,1]; k : = 1; p : = 1; c : = 0; цикл по i от 1 до n (по строкам) цикл по j от 1 до m (по столбцам) если (a(i, j) = max) and ((i< > k) or (j< > p)) то c : = c+1; если (a(i, j) > max) то k : = i; p : = j; c : = 1; max: = a(i, j); конец если конец цикла по столбцам конец цикла по строкам вывод "элемент ", max, " встречается ", c, " раз" конец. программа var a: array of array of integer var i,j,m,n,k,p,s,max: integer begin uses crt; clrscr; write ('vvedite kol-vo strok: '); readln (n); write ('vvedite kol-vo stolbtsov: '); readln (m); setlength(a,n,m); for i=1 to n do begin for j=1 to m do begin write ('vvedite element vassiva: '); readln (a[i,j]); end; end; max : = a[1,1]; k : = 1; p : = 1; c : = 0; for i=1 to n do begin for j=1 to m do begin if (a(i, j) = max) and ((i< > k) or (j< > p)) then c : = c+1; if (a(i, j) > max) then begin k : = i; p : = j; c : = 1; max: = a(i, j); end; end; end; write ('element ', max, ' vstrechaetsya ', c, ' raz'); end.

Constmax = 10000; var  i, j : integer; x,raz  : longint; a : array[0..max]  of longint;     begin//  //допустим уже массив заполнен//          for i : = max downto 2 do         for j : = 2 to i do           if a[j] < a[j - 1] then             begin                 x : = a[j];                 a[j] : = a[j - 1];                 a[j - 1] : = x; inc(raz);             end;   writeln('количество перестановок =  ', raz);   end.не проверял, но должно вроде бы работать: )

По горизонтали:

4. Устройство для записи, считывания и длительного хранения информации на гибких магнитных дисках (дискетах).

7. Устройство, предназначенные для вывода на экран текстовой и графической информации.

9. Ячейки памяти, которые служат для кратковременного хранения и преобразования данных и команд.

11. Линия связи к которой подключена сеть.

13. Устройство для записи, считывания и длительного хранения информации на жестких магнитных дисках.

14. Устройство ввода звуковой информации.

15. Системная магистраль передачи данных.

По вертикали:

1. Устройство для вывода чертежей на бумагу.

2. Электронная схема, которая управляет работой какого-либо внешнего устройства.

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

5. Вс процессор, предназначенный для выполнения математических и логических действий.

6. Небольшая электронная схема, выполняющая все вычисления и обработку информации.

8. Устройство вывода звуковой информации.

10. Устройство для считывания графической и текстовой информации в компьютер с бумажных носителей информации.

12. Печатающее устройство, предназначенные для вывода информации на бумагу.

14. Манипулятор для ввода информации в компьютер.

Надеюсь !