В массиве Rab(12) содержаться сведения о численности работников предприятия за 12 месяцев. Рассчитать среднесписочную численность работников и напечатать номера месяцев,в которых численность была выше среднесписочной более чем на 10%-Написать программу для решения данных задач,обеспечивая вывод исходных и полученных массивов в корректном виде.-Создание массивов производить с помощью генератора случайных чисел Random — Pascal(Паскаль)

uses crt;
var rab:array[1..12] of byte;
      i:integer;
      sr:real;
begin
 clrscr;
randomize;
sr:=0;
 for i:=1 to 12 do
  begin
   rab[i]:=random(50);
   sr:=sr+rab[i];
 end;
for i:=1 to 12 do
 write(rab[i],' ');
writeln;
for i:=1 to 12 do
 if (rab[i]/(sr/12))-1>0.1 then
 writeln(i,' больше на 10%')
readln;
   
 
end.

Похожие записи/страницы:

Leave a Comment

5 + 1 =