Написать программу (в 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.
Частота дискретизации 256 Гц в практике не встречается, скорее 256 КГц. Ну, это Ваше дело. Итак, 265 Гц - это 256 значений отсчетов уровня звукового сигнала за секунду. 256 - это два в восьмой степени. 128 уровней дискретизации кодируются в диапазоне от 0 до 127, а само число 128 - это два в седьмой степени. Итого, секунда записи требует для кодирования (2^8)x(2^7)=2^15 бит. А восемь минут - в 8х60 раз больше. Всего будет (2^15)x8x60 бит. Переводим в килобайты, учитывая, что байт состоит из 8 бит, а в килобайте 2^10 байт. Получаем (2^15)x8x60/(8х2^10)=(2^5)x60=32x60=1920 (Кбайт).
Var x,y: real; var a,b,c,d:integer; begin readln(x,y); if (y<1) then write ('1') else write ('0'); if (y<-x) then write ('1') else write ('0'); if sqr(x)+sqr(y)<1 then write ('1') else write ('0'); if sqr(x-1)+sqr(y)<1 then write ('1') else write ('0'); <span>end.</span>
Есть ОЗУ (Оперативное запоминающее устройство или оперативная память) и есть ПЗУ (Постоянное запоминающее устройство или обычная память) Внутренняя память это по сути и то и другое, но если идет речь про телефон то это ПЗУ