Составить программу которая запрашивает n целых - вопрос №1446620 от Sachakovakrist 01.12.2021 20:04

Question

Информатика: Составить программу которая запрашивает n целых чисел и вычисляет их среднее арифметическое

Sachakovakrist · Answer

var n, sum, i, j:integer;

begin

sum:=0;

write('Enter N: ');

readln(n);

writeln('Enter N numbers:');

for i:=1 to n do

begin

read(j);

sum:=sum+j;

end;

writeln('Average is ', sum/n)

end.