Var
Rost: array[1..50] of real;
n, i: integer;

begin
write('Сколько человек в классе? ');
readln(n); {Ввод и чтение кол-ва человек в классе}
for i := 1 to n do
begin
    write('Рост ученика: ');
    readln(Rost[i]);
    if Rost[i] < 160
      then writeln('Рост ', i, '-ого ученика низкий')
    else
    if (Rost[i] > 159) and (Rost[i] < 170)
      then writeln('Рост ', i, '-ого ученика средний')
    else
      writeln('Рост ', i, '-ого ученика высокий');
end;
end.

0 0

4 года назад

Запиши информацию о домашних животных

alex19818

Животный мир земного шара велик и разнообразен. Животные населяют всю природу вокруг нас. Животные —живые существа. Слово «существо» произошло от слова «существует», то есть живёт. Вот и получается, что любое животное живёт и, так же как человек, дышит, передвига–ется, питается, заботится о своём потомстве и строит для себя жилище — «дом».

0 0

4 года назад

Помогите сделать информатику пятый класс

thetan

просто напиши свою дату по клеткам

0 0

3 года назад

Назовём данную таблицу TEMPERATURA. Месяц 1 2 3 4 5 6 7 8 9 10 11 12 Температура −20 −18 −5 0 9 14 25 26 14 7 −3 −13 Тогда TEMPE

Stepv

Будет равняться 9...

0 0

4 года назад