Задать вопрос
28 декабря, 20:22

Имеется 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 значений. Что не так?

+1
Ответы (1)
  1. 28 декабря, 22:29
    0
    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
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Имеется 10 результатов по прыжкам в длину c1, c2, c3, ... c10. Вывести на печать номера спортсменов, чей результат превышает n метров. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы