В отделе работают 15 человек. Их зарплата колеблется от 4500 до 7800 рублей. Вывести...

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

В отделе работают 15 человек. Их зарплата колеблется от 4500 до 7800 рублей. Вывести ведомость начисления зарплаты, используя генератор случайных чисел.
Pascal


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

{ В отделе работают 15 человек. Их зарплата колеблется от
4500 до 7800 рублей. Вывести ведомость
начисления зарплаты, используя генератор случайных чисел.}

const pers = 15;
var a:word;
    i:byte;
    sum:real;

begin
  randomize;
  sum:=0;
  for i:=1 to pers do begin
    a:=random(45,78)*100;
    writeln('Работник ',i:2,'. Зарплата ', a);
    sum:=sum+a;
  end;
  writeln('Итого к оплате: ', sum:10);
end.


image
(10.8k баллов)