Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Напишите программу находящую среднее арифметическое четных чисел, вводимых с клавиатуры. задачу решить с помощью цикла с параметром

Ответ оставил Гость

Program prl;
uses crt;
var i,n,summa:integer;
      srednee:real;
      a:arra[1..100] of integer;
begin
write(Введите кол-во четных элементов);
readln(n);
summa:=0;
for i:=1 to n do begin
write(Введите ,i, элемент:); 
readln(A[i]);
summa:=summa+A[i];
end;
srednee:=summa/(n div 2);
writeln(Среднее арифметическое,srednee:3:2);//
readln;
end.