30 Сотрудников

за от 300 до 800

Определить сред зарплату всех сотрудников

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

Question

Информатика

Ана

17 февраля, 02:55

30 Сотрудников

за от 300 до 800

Определить сред зарплату всех сотрудников

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

+2

Ответы (1)

~~Знаете ответ?~~

Федуля · 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.

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

30 Сотрудников

за от 300 до 800

Определить сред зарплату всех сотрудников

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