30 сотрудников Зп от 300 до 800 определить сред зарплатe всех сотрудников определить...

Question

30 сотрудников
Зп от 300 до 800
определить сред зарплатe всех сотрудников
определить сколько человек получают значение ниже средней зп
PascalAbc

Answer 1

//PascalABC.Net 3.2
begin
var a:=arrRandom (30, 300, 800);
writeln ('Рандомные зарплаты:'); a.Println;
writeln ('Ср. зарплата: ', a.Average);
var count:=0;
for var i:=0 to 29 do if a[i]write ('Кол-во сотрудников с ЗП меньшей средней ', count); 
end.