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

0 голосов
26 просмотров

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


Информатика (14 баллов) | 26 просмотров
Дан 1 ответ
0 голосов

//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.

(3.8k баллов)