СРОЧНО!!! Составить программу на языке Паскаль.
Найдите среднее ариыметическое натуральных чисел от 1 до n кратных 5.

Спасибо огромное!!!))))

Да не за что! Если,что пиши мне в вк. id156349066. Помогу!

зачем такой геморой?

Код под таким названием (г*) находиться выше. А если вы введете массив из чисел 1 2 3 будет ошибка деление на 0. Но дело даже не в ошибке ...

введете массив из чисел 1 2 3 ....

Да и условие вы не правильно поняли - Найдите среднее арифметическое натуральных чисел от 1 до n. Т.е 1 2 3 4 5 ...n О массиве чисел речи нет

program z1;var a:array[1..10000] of longint;          k,i,s,r:longint;          v:real;beginread(k);for i:=1 to k doread(a[i]);s:=1;r:=0;v:=0;for i:=1 to k doif (a[i] mod 5)=0 then begin                                                      s:=s*a[i];                                                      r:=r+1;                                                      end;v:=s/r;write(v);end.

{на основе формулы арифметической прогессии}var  n: integer;begin readln(n);    writeln((5+5+5*(n div 5 -1))/2) ;{((a1+a1+d*(n-1))/2)}end.{или перебором без математики}var  i,n,k: integer;  s:real;begin  k:=0; readln(n); for i:=1 to n do    if i mod 5=0 then begin s:=s+i; k:=k+1; end;    writeln(s/k) ;end.Примерn=100summa=52.5