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

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</p>

    end;

    writeln;

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

end.

Comments

можешь русский текст в коменты написать

---

а то тут ироглефы

---

могу, просто при копированиит

---

просто при копировании из паскаля такое происходит

---

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

---

пж

---

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

---

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

---

https://znanija.com/task/30386091