Question

Программирование на паскале.Найти среднее арифметическое положительных чётных чисел натурального ряда до N.(Использование цикличного оператора for)

Answer 1

var
 n,i:integer;
 a:real;
begin
 readln(n);
  for i:=1 to n do
   a:=a+i;
 a:=a/n;
writeln(a);
end.