PascalABC.NET 3.2:
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.
#include <iostream>
using namespace std;
int main() {
int a, b, c;
cin >> a >> b >> c;
for(int i = 0; i <= 1000; i++){
if(a * i % b == c){
cout << i;
return 0;
}
}
cout << 0;
return 0;
}
<h3>
Все прошло.</h3>
Знаю только для примеров и уравнений называется PhotoMath
Var
n, k, s: integer;
begin
s := 0;
k := 0;
repeat
write('Введите целое число = ');
readln(n);
if n > 0 then begin
k := k + 1;
s := s + n;
end
until n = 0;
writeln('Среднее арифметическое = ', s / k);
end.