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

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.

(см. объяснение)

Объяснение:

Решение задачи на PascalABC.NET:

##

var a: sequence of integer := ReadArrInteger(ReadInteger).Where(x->x>0);

if(a.Count = 0) then print('NO')

else print(a.Sum/a.Count);

Решение задачи на PascalABC:

var a, N, i, sum, k: integer;

begin

 sum:= 0;

 k:= 0;

 readln(N);

 for i:= 1 to N do

 begin

   read(a);

   if(a>0) then

   begin

     k:= k+1;

     sum:= sum+a;

   end;

 end;

 if(k=0) then writeln('NO')

 else writeln(sum/k);

end.

Рекомендованное решение приведено первым, однако, как мне кажется, второе вам будет понятнее.

Задание выполнено!

◘Объективность информации. Например: "На улице холодно" - это субъективная информация. А "На улице -14°" - объективная (но не всегда точная)
◘Достоверность информации. Ин-фа достоверна, если отражает истинное положение дел. (объективная информация всегда достоверна)
◘Полнота информации. Информация полная, если ее достаточно для понимания и принятия решения.
◘Точность информации. Определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т.д.
◘Актуальность информации – важность для настоящего времени.
◘Полезность информации.
 - Самая ценная информация – объективная, достоверная, полная, и актуальная.