Меню сайта

Задача №3
Ввести массив из —nэлементов, найти среднее арифметическое элементов массива.
Program -mas_2-

Var a:array[1..1000] -of integer-

n,I:integer-

P:longint-

s:real-

Begin

Writeln(‘введите размерность массива -‘)- Readln(n)-

For i:=1 to n do

Begin

Writeln(‘введите элемент -‘)- Readln(a[i])-

End-

s:=0-

For i:=1 to 10 do s:=s+a[i]-

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

Readln-

End.
Категория: Массивы | Дата: 17.12.12

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