Сделать блок схему для кода fortran program testtt implicit none integer : : a(8,8), b(8,8), i, j, minimum, n, ind1, ind2 logical : : l data a/8,7,6,5,3,2,1,0, & 8,7,6,5,3,6,1,0, & 8,7,6,5,3,2,1,-3,& 8,7,6,5,3,2,1,0, & 8,7,6,5,3,2,1,0, & 8,7,6,5,1,2,1,0, & 2,7,6,5,3,2,1,0, & 8,7,6,5,3,2,1,0/ ! выясним, ли элементы по главаной диагонали do i = 1, 7 if (a(i,i) > a(i+1, i+1)) then l=.true. else l=.false. exit end if end do ! если , то найдем минимальный элемент под диагнональю и его индексы if (l) then minimum = a(2,1) n=2 do j=1,7 do i=n, 8 if (a(i,j) < minimum) then minimum = a(i,j) ind1 = i ind2 = j end if end do n = n + 1 end do print 2, "минимальный элемент = ", minimum print 2, "индексы минимального элемента = ", ind1, ind2 print*,print 1, ((a(i,j),j=1,8),i=1,8) ! если не , то поменяем столбцы со строками else b=a do i=1,8 a(i,: ) = b(: ,i) end do print 1, ((a(i,j),j=1,8),i=1,8) end if 1 format (8i5) 2 format (a, 5i4) end

Размер цифрового моноаудиофайла измеряется по формуле:     A = D*T*i,

где D – частота дискретизации (Гц), T – время звучания или записи звука(сек), i - глубина кодирования(байт)

т.к. у нас стерео файл, то он будет занимать в 2 раза больше места при тойже продолжительности(т.к. в нем хранится 2 монодорожки)

16 бит = 2 байта

А = 44000 * 300 * 2 = 26400000 байт = 25781,25 килобайт =  25,177 мегабайт

это для монофайла

а для стерео в 2 раза больше

52800000 байт = 51562,5 килобайт = 50,354 мегабайт

var //это ключевое слово показывает что началось объявление переменных
  b, i:integer;  //тут показали что переменные b, i  типа integer т.е. целые
  Summ:real; {тут показали что переменные Summ  типа real т.е. дробная в ней будет хранится наша сумма}
begin // это слово показывает на начало выполнения программы
  Summ := 0;  //присваиваем начальное значение суммы
  write('b = '); readln(b);  //выводим на экран 'b = ' и считываем b
  for i := 1 to b do {повторяем следующую операцию b раз причем каждый раз i будет увеличиваться на 1 изначально i присваивается 1}
    Summ := Summ + i * i / 2; {присваиваем сумме ее же значение плюс сразу  квадрат переменной i деленный на 2}
  writeln('S = ', Summ); //выводим 'S = ' и за ним сразу значение суммы
  readln; //ожидаем нажатия клавиши enter
end. //конец выполнения программы