Question

РЕШИТЕ СРОЧНО ПОЖАЛУЙСТА Pascal

Answer 1

var a:array[1..20] of integer;

i,z:integer;

begin

    write('Зарплаты:');

    randomize;

    for i:=1 to 20 do

    begin

         a[i]:=random(25000)+15000;

         write(a[i],' ');

         if (a[i]>27000) and (a[i]<38000) then z:=z+1

    end;

    writeln;

    write('работников получивших зарплаты от 27000 до 38000=',z);

end.