Uses Crt; var i,n:integer; a,s:real; begin Writeln('Вычисление среднего арифметического'); Writeln('последовательности действительных чисел'); Write('Введите количество чисел последовательности ->'); Readln(n); Writeln('Введите последовательность. После ввода каждого числа нажмите Enter'); s:=0; for i:=1 to n do begin Read(a); s:=s+a end; Writeln('Среднее арифметическое введенной последовательности: ',s/n); Write('Для завершения работы программы нажмите Enter'); Readkey end.
Тестовое решение: Вычисление среднего арифметического последовательности действительных чисел Введите количество чисел последовательности ->5 Введите последовательность. После ввода каждого числа нажмите Enter 5.4 7.8 3.0 1.5 2.3 Среднее арифметическое введенной последовательности: 4 Для завершения работы программы нажмите Enter
Для версии Pascal.ABC.Net: var i,n:integer; a,s:real; begin Writeln('Вычисление среднего арифметического'); Writeln('последовательности действительных чисел'); Write('Введите количество чисел последовательности ->'); Readln(n); Writeln('Введите последовательность. После ввода каждого числа нажмите Enter'); s:=0; for i:=1 to n do begin Read(a); s:=s+a end; Writeln('Среднее арифметическое введенной последовательности: ',s/n) end.
Уважаемый Pozhidaevad! Приглашаем Вас и Ваших близких на концерт красивой музыки «За подвиг, мама я тебя благодарю!» с участием Лауреата Всероссийских и Международных фестивалей и конкурсов Хоровой школы мальчиков «ДЕБЮТ», Хора девочек «СОЛЬБА» детского приюта Николо-Сольбинского Монастыря и творческих коллективов в рамках Международного дня людей с ограниченными возможностями здоровья.
Будем рады видеть Вас 29 марта 2017 года в 18:00 в Большом концертном зале Московского городского Дворца детского твочества на Воробьевых горах по адресу: ул. Косыгина, д.17
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку