Cls
rem a
let sum=0
let sred=0
let n=0
let i=1
input "n=";n
for i=1 to n step 1
input b
sum=sum+b
next n
sred=sum/n
print "Sred = ";sred
end
«Statistical Psychology for the Social Sciences» – «статистический пакет для психологов и социологов»
Var A:integer;
Begin
Write('A = ');Read(A);
if A>50 then A:=(A div 10)+(A mod 10)
else A:=(A div 10)*(A mod 10);
Write(A);
End.
<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)</span>
begin
var a:=ArrRandom(20,2,5); a.Println;
For var i:=2 to 5 do Println('Кол-во',i,'=',a.Where(t->t=i).Count);
Writeln('Средний бал равен ', a.Average:0:2);
end.
Пример:
5 3 5 2 4 3 5 5 5 3 2 2 4 4 2 3 4 3 5 4
Кол-во 2 = 4
Кол-во 3 = 5
Кол-во 4 = 5
Кол-во 5 = 6
Средний бал равен 3.65