Составить программу в паскалебез использования random

Question

Составить программу в паскале
без использования random

---

Answer 1

Const N= {количество спортсменок напишите}
var a: array[1..N] of real; k,i: integer; 
begin
writeln('Введите данные');
for i:=1 to n do readln(a[i]);
k:=0;
for i:=1 to N do
if (a[i]<57)and(a[i]>50) then k:=k+1;
if k=0 then writeln('Не найдено') else writeln(k);
readln
end.

---

Comments

не знаю в чем дело

---

Вводи лучше через enter каждое значение

---

через пробел не пройдет здесь, так массив не заполнишь

---

спасибо большое, теперь все работает )

---

=)