Нужно написать программу ** паскале обязательно используя цикл For. Программа вычисляет...

Question

Нужно написать программу на паскале обязательно используя цикл For.

Программа вычисляет среднее арифметическое положительных элементов ряда чисел. Каждый элемент ряда вычисляется по формуле: (12*K-21)/3, где K--номер элемента в ряду. Всего элементов--необходимо спросить.

Answer 1

Var K,n:integer;
S:real;
Begin
n:=0;
Write('K = ');ReadLn(K);
For K:= 1 to K do
    Begin
    Write((12*K-21)/3,' ');
    if (12*K-21)/3 > 0 then
       Begin
       S:=S+(12*K-21)/3;
       n:=n+1
       End;
    End;
WriteLn;
Write('Sr = ',S/n)
End.