Пожалуйста помогите!!!!! Нужно сделать с помощью PASCAL
Я СДЕЛАЛА НАЧАЛО, ПОМОГИТЕ ЗАКОНЧИТЬ И ЕСЛИ ЕСТЬ ОШИБКИ- ИСПРАВИТЬ
Имеется n кол-во учеников одного класса. Для каждого в компьютер вводится рост. До 160-низкий, от 160 до 170-средний, от 170-высокий.
Вот начало программы:

PROGRAM rost;
VAR A,B,N:REAL;
BEGIN
?N=0(НЕ ЗНАЮ ГДЕ ЭТО ПОСТАВИТЬ)
WRITELN( 'ЕСТЬ ЛИ УЧЕНИКИ В КЛАССЕ? , ЕСЛИ ДА-1, НЕТ-0);
READLN(A);
WHILE A=1 DO;
BEGIN
WRITELN ('ВВЕДИТЕ СВОЙ РОСТ');
READLN (B);
N=N+1
IF B<160 THEN.................
..................
..................
....................

1 ответы

  • 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.

Последнее для темы Информатика

Https://photos.app.goo.gl/jo8nf7mSTrq6Qnv1A Помогите СРОЧНО!!!!!!

ДАМ 50 БАЛЛОВ ПОМОГИТЕ СРОЧНО ПОЖАЛУЙСТА Чему равно х в десятичной системе счисления, если х = 22

СРОЧНО!!! надо подписать нужное. Даю 15 баллов​.

А) Ернар сказал Оле: «Если человек долго и не моргая смотрит на экран компьютера, то его глаза стану

Ребята, помогите, пожалуйста, с информатикой! Это срочно 1. Как называют схему связей между раздела

В записи С12, что означает буква и цифра​

Напишите программу, которая находит сумму чисел в числовом ряду. Формат входных данных В первой с

2. Рассмотри изображение. Предложи ДВА действия во избежание нарушений правил техники безопасности.

Помогите пожалуйста с устройством ЭВМ. Нужно описать элементы схемы и их взаимодействие

ПОМОГИТЕ! Алгоритм вычисления значения функции F(n), где n – целое число, задан следующими соотношен