Задать вопрос
17 февраля, 02:55

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

за от 300 до 800

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

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

+5
Ответы (1)
  1. 17 февраля, 04:31
    0
    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 Определить сред зарплату всех сотрудников Определить сколько человек получают зп ниже средней ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы