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

Question

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

Comments

Тебе на паскале написать надо? Если да, то как узнаются зарплаты (с клавиатуры вводятся или как?)

---

да на паскале, заплаты в массиве A[i]:= random(500)+300;

Answer 1

Const N=30;
var s,b:real;
c,i:integer;
A:array[1..N] of real;
begin
Randomize();
b:=0;
c:=0;
for i:=1 to N do 
  begin
  A[i]:=random(500)+300;
  b:=b+A[i];
  end;
s:=b/N;
for i:=1 to N do if A[i]Writeln('Средняя зарплата: ',s);
Write('Количество сотрудников,получающих зарплату ниже средней: ',c);
End.

Comments

Спасибо, больше