Begin Write('Sr = ',ReadSeqReal('Введите n чисел:',ReadLnInteger('n = ')).Where(x->x>0).Average) End.
Turbo/Free/ABC:
Var A,S:real; n,k:integer; Begin Write('n = ');ReadLn(n); Write('Введите n чисел: '); S:=0; k:=0; For n:= 1 to n do Begin Read(A); if A > 0 then Begin S:=S+A; k:=k+1 End End; WriteLn('Sr = ',S/k); End.
Число кратно 10 если оно заканчивается 0 В данном примере важна последняя цифра. Последняя цифра суммы чисел зависит только от суммы последних цифр. Последняя цифра произведения (Степени числа) зависит только от произведения (степени цифры) чисел 91^10=...1*...1*...*...1 (10 раз)=..1 --последняя цифра числа 1 42^10=..2*2*..*...2 (10 раз)=...4*...*...4(5 раз)=..6*..6*..4=...4 - последняя цифра 4 85^10=..5*..5*...*...5(10 раз)=...5 - последняя цифра 5 значит последняя цифра данного числа равна ..1+..4-...5=..0 -- последняя цифра 0, а значит оно кратно 10. Доказано
Program Project1;//кількість днів я взяв за N а площу за ploschad var A,B,Z,S,N, ploschad:real; K,D:integer;begin writeln('vvedit kilkist kombainov tupy K ta proizvoditelnost A'); readln(K,A); writeln('vvedit kilkist kombainov tupy D ta proizvoditelnost B'); readln(D,B); writeln('vvedit prodolzitelnost robochego dnja Z ta vrema tex obslyzivannja S'); readln(Z,S); writeln('vvedit kolichestvo dney N'); readln(N); ploschad:=(k*a+b*d)*(z-s)*n; writeln('ploschad=',ploschad:8:2); readln; end.
Begin
Write('Sr = ',ReadSeqReal('Введите n чисел:',ReadLnInteger('n = ')).Where(x->x>0).Average)
End.
Turbo/Free/ABC:
Var
A,S:real;
n,k:integer;
Begin
Write('n = ');ReadLn(n);
Write('Введите n чисел: ');
S:=0;
k:=0;
For n:= 1 to n do
Begin
Read(A);
if A > 0 then
Begin
S:=S+A;
k:=k+1
End
End;
WriteLn('Sr = ',S/k);
End.