Заполните массив 15 произвольными целыми числами,введя их с клавиатуры и найдите среди...

0 голосов
33 просмотров

Заполните массив 15 произвольными целыми числами,введя их с клавиатуры и найдите среди них среднее арифметическое.


Информатика (14 баллов) | 33 просмотров
Дан 1 ответ
0 голосов

Program z1;  const n = 15;  Var a: array [1..n] of integer; i:integer; s:real;Begin  for i:=1 to n do    read(a[i]);     for i:=1 to n do    write (a[i],' ');      s:=0;  for i:=1 to n do    s:=s+a[i];  s:=s/n;      writeln;    writeln('Сумма элементов = ',s);End.

(314 баллов)