Помогите,+ еще схему Имеется 10 результатов по прыжкам в длину c1 ,c2 ,…c10 . Вывести **...

Question

Помогите,+ еще схему
Имеется 10 результатов по прыжкам в длину c1 ,c2 ,…c10 . Вывести на печать номера спортсменов, чей результат превышает L метров.

Comments

Паскаль?

---

Да

Answer 1

Var
c:array [1..10] of integer;
i,L:integer;
begin
writeln('Введите результаты');
for i:=1 to 10 do
read(c[i]);
writeln('Введите L');
read(L);
writeln('Номера спортсменов,чей результат больше L');
for i:=1 to 10 do
if c[i]>L then
write(i,' ');
end.

---