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

за от 300 до 800

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

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

Question

Информатика

Дея

28 мая, 09:48

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

за от 300 до 800

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

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

+5

Ответы (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

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

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