М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
kristinakissa1
kristinakissa1
30.10.2021 13:40 •  Информатика

Бітова частота звукового файла дорівнює 128 Кбіт/с, файл прослуховували протягом 2 хв. Визначте обсяг звукового файла в Кбайтах.

👇
Открыть все ответы
Ответ:
роман509
роман509
30.10.2021
var a, b, c, d, i, j :integer;
     s :array [1..100,1..100] of integer;
begin
   b:=63999;
   c:=-63999;
   for i:=1 to 15 do
      begin
      writeln;
      for j:=1 to 15 do
         begin
         s[i,j]:=random(127998)-63999;
         a:=a+s[i,j];
         if s[i,j]>c then c:=s[i,j];
         if s[i,j]<b then b:=s[i,j];
         write (s[i,j],' ');
         end;
      end;
   writeln;
   writeln ('Сумма элементов = ', a);
   writeln ('Максимальный элемент = ', c);
   writeln ('Минимальный элемент = ', b);
end.
4,4(82 оценок)
Ответ:
егор99992
егор99992
30.10.2021
// PascalABC.NET 3.0, сборка 1128
procedure Convert(V:array of integer);
begin
  for var i:=0 to V.Length-1 do
    if V[i]>9 then V[i]:=9
    else
      if V[i]<5 then V[i]:=5
end;

procedure Develop(c:char; k:integer);
begin
  WritelnFormat('*** Массив {0} ***',c);
  var a:=ArrRandom(k,-5,15);
  Write('исходный : '); a.PrintLn(',');
  Convert(a);
  Write('результат: '); a.PrintLn(',');
end;

begin
  var m:=ReadInteger('Количество элементов в массиве A:');
  var n:=ReadInteger('Количество элементов в массиве B:');
  Develop('A',m);
  Develop('B',n)
end.

Тестовое решение:
Количество элементов в массиве A: 15
Количество элементов в массиве B: 10
*** Массив A ***
исходный : 6,5,-5,9,1,0,-3,9,13,12,-4,8,11,14,-5
результат: 6,5,5,9,5,5,5,9,9,9,5,8,9,9,5
*** Массив B ***
исходный : 5,12,12,4,7,9,7,-3,-1,-2
результат: 5,9,9,5,7,9,7,5,5,5
4,6(66 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ