Напишите на ^ Паскале программу, которая запрашивает с клавиатуры массив из N чисел, а затем выводит среднее арифметическое всех элементов массива.

Question

Информатика

Лилия

24 марта, 20:55

Напишите на ^ Паскале программу, которая запрашивает с клавиатуры массив из N чисел, а затем выводит среднее арифметическое всех элементов массива.

+1

Ответы (2)

Знаете ответ?

Лизута · Answer 1

Program Sred;

var

n, i, sum : integer;

mas: array[1 ... 20] of integer;

af: real;

begin

sum : = 0;

n : = 20;

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

for i:=1 to n do

begin

readln (mas[i]) ;

sum : = sum + mas[i];

end;

af : = sum/n;

writeln (af) ;

end.

Павлич · Answer 2

орфографию проверь

var N, i, z, l:integer;

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

for i:=1 to N do

begin

readln (a[i]) ;

l:=l+a[i];

end;

z:=l/N;

writeln (z) ;

end.