Sub average(ByVal N) S = "" sum = 0 N = Round(N) For i = 1 To N A = InputBox("Введите число № " + Str(i)) A = Round(A * 100) / 100 S = S + Str(A) If i <> N Then S = S + ", " End If sum = sum + A Next i MsgBox "Введённые числа " + S MsgBox "среднее значение " + Str(sum / N)End Sub
Sub test()M1: N = InputBox("Введите N; 0 - Закончить ") If (N = 0) Or (N = "") Then End End If Call average(N)GoTo M1:End Sub
..........................................
Program NekitZor;
const
n=16;//1-Именованная переменная количество елементов
var
a:array[1..n] of integer;
k:integer;
i:integer;
begin
for i:=1 to n do
a[i]:=random(20);//2-Массив чисел, задал рандомно не больше 20
for i:=1 to n do write(a[i],' ');//3-Вывел массив в строку
for i:=1 to n do
if a[i]<11 then k:=k+1;//4-Подсчитал количество елементов меньше 11<span>
</span>writeln();
writeln();
writeln('Количество елементов меньше 11 = ',k);
end.
Видно так тебе нужно было код написать но тот код лучше который на скрине у тебя !!!
ТЕЛЕКОММУНИКАЦИИ<span>, </span>комплекс технических средств,предназначенных для передачи информации на расстояние<span>. </span>Информация поступает в самыхразнообразных видах: как цифровые сигналы<span>, </span>звуки<span>, </span>печатные слова или изображения<span>. </span>Пересылкавыполняется посредством ТЕЛЕГРАФА<span>, </span>ТЕЛЕФОНА и РАДИО<span>, </span>по проводам или РАДИОВОЛНАМИ<span>; </span>иногдаэти способы комбинируются<span>. </span>Телеграф был разработан в середине XIX в<span>., </span>а в конце столетия появилосьрадио<span>. </span>ТЕЛЕВИДЕНИЕ возникло в 1930-х гг<span>. </span>Есть два основных вида сообщений: ЦИФРОВЫЕ СИГНАЛЫ<span>, </span>вкоторых сообщение превращается в ряд кодированных импульсов<span>, </span>а затем посылается<span> (</span>как в АЗБУКЕМОРЗЕ<span>), </span>и АНАЛОГОВЫЕ СИГНАЛЫ<span>, </span>когда сообщение<span>, </span>например<span>, </span>голосовая речь<span>, </span>непосредственнопревращается в серию передаваемых электрических импульсов<span>, </span>в волновой форме аналогичныхМОДУЛЯЦИЯМ<span> </span>
