<span>//PascalABC.NET
//Версия 3.3, сборка 1627 (27.01.2018)
</span>
begin
var l:=ArrRandom(25,50,150); l.Println;
Writeln('Среднее полных-> ',l.Where(t->t>=100).Average:0:4);
Writeln('Среднее остальных-> ',l.Where(t->t<100).Average:0:4);
end.
Пример:
55 108 131 58 141 62 102 56 118 78 128 114 110 66 134 74 71 56 103 126 76 133 118 99 101
Среднее полных-> 119.0714
Среднее остальных-> 68.2727
1)3
2)3
3)4
4)4
5)3
6)б,с,д,а
7)3270
вторую страницу не осилила)))
Program n1;
Uses CRT;
Const n=40;
Var A:array[1..n] of integer;
i: integer; S:Real;
begin
writeln('Massiv: ');
For i:=1 to n do
begin
a[i]:=random(20);
write(' ',A[i]:2);
end;
writeln;
For i:=1 to n do begin S:=s+A[i]/n; end;
Writeln('Srednee arif.: = ',S);
readln;
<span>end.</span>
С++ где а - трехзначное число, при вводе его с клавиатуры
{
int a;
cin<a=a/100;
cout>>a;
}