Основные способы это статистический и словарный. Программы: архиваторы, WinRAR. Вроде так)
Const n=10;
var a:array[1..n] of integer;
s,r,i:integer;
begin
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
s:=0;
for i := 1 to n do
begin
s:=s+a[i];
r:=s/n;
end;
writeln('r=',r);
readln;
<span>end. </span>
1-ложь
2-истина
3-ложь
4-истина
5-истина
6-ложь
7-истина
8-ложь
9-истина