Question

Написать программу в паскале для расчёта среднего значения элементов в массиве. Ввод массива с клавиатуры.
СРОЧНО!!!!
Заранее спасибо!

Answer 1

program mas_sr_znach;

const n=10;

var

i,sum:integer;

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

begin

writeln(' Введите элементы массива ');

writeln(' Элемент Сумма ');

sum:=0;

for i:=1 to n do

begin

write(i,'》');

read(a[i]);

sum:=sum+a[i];

writeln(sum:14);

end;

write('Среднее》 ',sum/n:6:2);

end.