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.

Answer 2

можешь еще одну задачу решить?

Answer 3

пж

Answer 4

Определить какой по счету спортсмен пришел к финишу с временем выше среднего значения известно что участвовало 10 спортсменов на дистанции 100 м время каждого спортсмена вводится с клавиатуры. Паскаль

Answer 5

я могу кинуть ссылку чтоб ты быллы получил

Answer 6

https://znanija.com/task/30386091