Немного дополню ответ коллеги VladimirGoryachev.
а) В данной задаче не нужен массив. Нам сами числа не интересуют (нет цели специально выводить, например, 25-е число), а только их сумма. Поэтому будем просто сразу считать сумму.
б) Если был бы и нужен массив, то не вполне очевидно, почему он должен быть именно в 100 элементов. Задачей никак не запрещается иметь, например, 101 ненулевое число. В этом случае программа Владимира либо будет работать неправильно, либо выдаст ошибку.
в) Подключение библиотеки crt тут тоже не особо нужно. Не думаю, что возможность очистить экран (crt в данной программе используется только для этого) существенна.
г) Можно ограничиться одним циклом, а не двумя.
С учетом вышенаписанного, код можно переписать так:
program P1;
var temp, summ : integer;
begin
writeln('Vvod massiva: ');
summ:=0;
repeat
readln(temp);
summ:=summ+temp;
until temp = 0;
writeln('Resultat: ',summ);
readln
end.
Это задание скорей к музыковедам, а не по информатике. При этом об одном и том же произведении мнения разных людей могут быть совершенно разными, некоторые и Лунную Сонату называют мутью и чушью.
Расшифруй термин "анализировать" и "музыка". Если анализ проводит компьютер, то для него музыка - это просто последовательный набор звуков, если многоголосие то многоканальный. Ну а воспринимать и в дальнейшеи анализировать он может только громкость и спектр. Так что определи базовые понятия, без этого задание не имеет никакого смысла.
Скорость передачи данных по коаксиальному кабелю до 10 мбит /сек = 1250 кбайт /сек
6 мегабайт=6144 кбайт
6144/1250=4,9152 секунды
скорость передачи данных по коаксиальному кабелю диаметром 6 мм до 10 мбит
скорость передачи данных по телефонной линии(ADSL) - до 8 мбит/c=1000 кбайт/сек
6144/1000=6,144 секунды
скорость передачи данных по оптоволокну- 40 Гбит/с. (максимальные скорости до 20 тбит /сек) = 50 мбайт/сек
6/50=0,12 секунды лучший ответ))
Объяснение: