Меню сайта

Задача №4

Ввести —Nразличных чисел. Найти среднее арифметическое всех чисел.


Program for_4-

Var n,i,a:integer-

s:real-

Begin

Writeln(‘введите число N’)-

Readln(n)-

For i:=1 to N do

Begin

Writeln(‘введите число’)-

Readln(a)-

s:=s+a-

end-

Writeln(‘среднее арифметическое= ‘,s/n:4:2)-

Readln-

End.

Категория: Циклы | Дата: 11.11.12

Меню раздела
Блок