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

Для вычисления пропускной канала используется формула: 1)q = V : t
2)q = V * t
3)2^i=N
4)2^i=К

👇
Открыть все ответы
Ответ:
кукушка138
кукушка138
01.12.2021
Const n=10;
var a:array[1..n+1] of integer;
k,i,j:integer;
begin
Randomize;
writeln('Исходный массив');
for i:=1 to n do begin
 a[i]:=random(51)-10;
 write(a[i],' ');
 end;
writeln;
write('k = ');
readln(k);
j:=1;
while (j<n)and(a[j]>=0) do j:=j+1;
if a[j]>=0 then writeln('Отрицательных элементов нет')
else begin
 for i:=n downto j+1 do a[i+1]:=a[i];
 a[j+1]:=k;
 writeln('Измененный массив:');
 for i:=1 to n+1 do write(a[i],' ');
 writeln;
 end;
end.

Пример:
Исходный массив
19 5 17 -4 23 -9 25 33 13 16
k = 10
Измененный массив:
19 5 17 -4 10 23 -9 25 33 13 16
4,6(81 оценок)
Ответ:
Малой98
Малой98
01.12.2021
// PascalABC.NET 3.3, сборка 1541 от 29.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=SeqRandomInteger(30,-50,50).Select(x->1.2*x).ToArray;
  a.Println;
  var m:=a.Average;
  var b:=a.Where(x->x<m).ToArray; b.Println
end.

Пример
27.6 -40.8 50.4 -14.4 -46.8 9.6 7.2 -36 -32.4 -60 -30 38.4 -2.4 -55.2 -43.2 -39.6 1.2 -52.8 -38.4 34.8 -45.6 -12 15.6 -55.2 4.8 13.2 -1.2 -40.8 -33.6 -19.2
-40.8 -46.8 -36 -32.4 -60 -30 -55.2 -43.2 -39.6 -52.8 -38.4 -45.6 -55.2 -40.8 -33.6 -19.2
4,8(84 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ