Составить программу вывода на экран среднего арифметического массива состоящего из 15 элементов

Question

Информатика

Иридента

14 августа, 02:45

Составить программу вывода на экран среднего арифметического массива состоящего из 15 элементов

+3

Ответы (1)

Знаете ответ на вопрос?

Кароматулло · Answer 1

Program TZ5;

const

n=15;

var

a:array [1 ... n] of integer;

i, b:integer;

begin

randomize;

for i:=1 to n do begin

a[i]:=random (20) ;

a[i]:=a[i]-10;

writeln (i,' ', a[i]) ;

end;

b:=0;

for i:=1 to n do

b:=b+a[i];

writeln ('srednee = ', b/n) ;

readln;

end.