var a: array[1..100,1..100]of integer;
n, m, i, j, mini, minj, maxi, maxj : integer;
begin
write('n, m -> ');
readln(n, m); {считываем размер матрицы}
write('input matrix -> ');
for i: =1 to n do for j: =1 to m do
begin
write('a[',i,',',j,'] -> ');
readln(a[i, j]);
end; {считываем саму матрицу}
readln;
mini: =1;
minj: =1;
maxi: =2;
maxj: =2;
for i: =1 to n do for j: =1 to m do if a[i,j] > a[maxi, maxj] then
begin
maxi : = i;
maxj : = j;
end else if a[i, j] < a[mini, minj] then
begin
mini : = i;
minj : = j;
end;
writeln('max = a[',maxi,',',maxj,'] = ', a[maxi, maxj]);
writeln('min = a[',mini,',',minj,'] = ', a[mini, minj]);
readln;
end.
Поделитесь своими знаниями, ответьте на вопрос:
A8 производится одноканальная (моно) звукозапись с частотой дискретизации 64 гц. при записи использовались 64 уровня дискретизации. запись длится 5 минут 20 секунд, её результаты записываются в файл, причём каждый сигнал кодируется минимально возможным и одинаковым количеством битов. какое из ниже чисел наиболее близко к размеру полученного файла, выраженному в килобайтах?