Program qq; uses crt; var i, n: integer; a:array[1..20] of real; sum: real; begin writeln ('Введите количество элементов массива'); readln(n); writeln ('Введите элементы массива'); for i:=1 to n do read (a[i]); sum:=0; //Обнуляем переменную суммы for i:=1 to n do if i mod 2 <> 0 then sum:=sum+a[i]; //Если индекс нечетный (т.е. его остаток от деления на 2 не равен //нулю), то прибавляем элемент к уже посчитанной сумме writeln (sum:6:2); //Выводим сумму на экран end.
лазера. Запись и считывание осуществляют в аналоговом формате. Поверхность носителя разделяют на разделы, которые разделяют данные в цифровом и аналоговых форматах. Оптический диск используют одновременно для хранения, записи и воспроизведения аналоговой и цифровой информации на спиральной дорожке. На дорожке создают изменяющийся рельеф, отражающий изменения звуковых волн от источника аналогового сигнала на слое хранения информации. Когда считывают запись оптическим приемником отраженного луча лазера и преобразуют сигнал из оптического в аналоговый, сигнал изменяют согласно длительности и мощности отраженного оптического сигнала на спиральной дорожке носителя. Техническим результатом является увеличение объема записанной информации на единицу площади носителя.
Во всех случаях есть возможность передать информацию на какие - то расстояния, дистанционно:
в пределах слышимости звука барабана, чередуя по- разному удары по заранее обговоренной схеме можно передать информацию скажем, через пропасть,... то же можно сказать про костер - зажигание костра на каком то расстоянии от собеседника являлось сигналом к примеру о нашествии врагов.. . Магнитофон (радио) передает звуковую информацию которую вещают на какой нибудь радио станции. через радио передаются песни. новости. Телефон. передаёт звуковую информацию. информация может быть разной. (начиная от сплетен. заканчивая Важными новостями. ) Телевизор- передаёт графическую и звуковую информацию. тоесть по телевизору мы можем смотреть разнообразные фильмы программы и новости.
uses crt;
var i, n: integer; a:array[1..20] of real; sum: real;
begin
writeln ('Введите количество элементов массива');
readln(n);
writeln ('Введите элементы массива');
for i:=1 to n do
read (a[i]);
sum:=0; //Обнуляем переменную суммы
for i:=1 to n do
if i mod 2 <> 0 then sum:=sum+a[i];
//Если индекс нечетный (т.е. его остаток от деления на 2 не равен
//нулю), то прибавляем элемент к уже посчитанной сумме
writeln (sum:6:2); //Выводим сумму на экран
end.