Вопрос по информатике:
Имеется 10 результатов по прыжкам в длину c1,c2,c3,...c10. Вывести на печать номера спортсменов, чей результат превышает n метров.
program sport;
Var c:array [1..10] of integer;
i:integer;
n:real;
Begin
for i:=1 to 10 do readln (c[i]);
for i;=1 to 10 do
if c[i]>n then writeln ('i=',i);
end.
когда начинаю вводить значения,то вводиться вместо 10 целых 20. Программа выполняется,но я не понимаю,почему нужно вводть 20,а не 10 значений. Что не так?
- 05.08.2018 21:04
- Информатика
- remove_red_eye 6871
- thumb_up 14
Ответы и объяснения 1
Program sport;
const
m = 10;
var
c: array [1..m] of integer;
i: integer;
n: real;
begin
write('n=');
readln(n);
for i := 1 to m do
begin
write('c[', i, ']=');
readln(c[i]);
end;
for i := 1 to m do
if c[i] > n then
write(i, ' ');
end.
Тест:
n=5
c[1]=1
c[2]=4
c[3]=7
c[4]=2
c[5]=5
c[6]=8
c[7]=3
c[8]=6
c[9]=9
c[10]=1
3 6 8 9
- 06.08.2018 17:43
- thumb_up 23
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.