Question

Program a2; var n,i,min,max,x:integer; begin Writeln('Введите колицество человек в классе:'); Readln(n); Writeln('Введите рост 1 ученика:'); readln(x); min:=x; max:=x; for i:=2 to n do begin Writeln('Введите рост ',i,' ученика:'); readln(x); if x>0 then max:=x; if x<0 then min:=x; end; Writeln('Рост самого низкого ученика',min); Writeln('Рост самого высокого ученика',max); end. что здесь неправильно?

Answer 1

Должно быть
x>max
x<min

неверно задано условие

Answer 2

В данном коде есть несколько проблем:

1. Отсутствует объявление переменной i перед использованием в цикле for.

2. Операторы сравнения >, < используются неправильно. Вместо > (код HTML-сущности для символа ">") и < (код HTML-сущности для символа "<") нужно использовать символы ">" и "<" соответственно.

3. Внутри цикла необходимо сравнить новое значение x с текущим минимальным и максимальным значениями, чтобы обновить их, если новое значение соответствует условиям.

4. Для вывода текстовых сообщений следует использовать WriteLn, а не writeln.

Вот исправленный код:

pascalCopy code
Program a2;
var
  n, i, min, max, x: integer;

begin
  Writeln('Введите количество человек в классе:');
  Readln(n);
  
  Writeln('Введите рост 1-го ученика:');
  Readln(x);
  
  min := x;
  max := x;
  
  for i := 2 to n do
  begin
    Writeln('Введите рост ', i, '-го ученика:');
    Readln(x);
    
    if x > max then
      max := x;
    
    if x < min then
      min := x;
  end;
  
  Writeln('Рост самого низкого ученика:', min);
  Writeln('Рост самого высокого ученика:', max);
end.

Этот код позволит пользователю ввести количество учеников в классе, а затем запросит рост каждого ученика. После этого программа найдет самого высокого и самого низкого учеников и выведет результат на экран.