PASCAL. Используя одномерные массивы, составить программу.

[valentun11231]

Здраствуйте у меня проблема с заданием на паскале,пару дней мучаюсь,не могу понять как сделать.Задание звучит так:
Используя одномерные массивы, составить программу – есть рост студентов в группе. Найти самый высокий рост. Значения элементов массива вводятся пользователем с клавиатуры.
Очень надеюсь на помощь.

[macomics]

program rost;

uses SysUtils;

var students: array of Byte; i, max: LongInt;

BEGIN
  Write('Введите количество студентов'); ReadLn(max); SetLength(students, max);
  Write('Введите рост, см: '); for i := Low(students) to High(students) do Read(students[i]);
  max := Low(students); for i := max + 1 to High(students) do if students[max] < students[i] then max := i;
  WriteLn('Самый высокий студент имеет рост ', students[max], ' и стоит в шеренге на ', max + 1, ' месте.'); ReadLn();
END.

[digitalis]

Вот студенты пошли длинные: для их роста уже integer не хватает. Разве что рост в пикометрах измерен... И динамический массив... В группе - всё население Земли ?

program rost;

uses SysUtils;
var students: array [1..50] of integer; i, nmax, himax: integer;

BEGIN
   himax := 0 ;
   imax := 0 ;
   Writeln ('Введите рост студентов. Окончание ввода = 0') ;
   for i := 1 to 50 do
   begin
        Readln (students[i]) ;
        if ((students[i] <= 0) then break
          else if students[i] > himax then
             begin
                 himax := students[i] ;
                 imax := i
             end;
     end ;   
   WriteLn('Самый  длинный стьюдень с нумером ', imax,  'имеет рост ', himax); ReadLn();
END.

Слишком вумное решение (динамический массив) может навлечь "пару" за "не сам сделал" .

[macomics]

Точно. Для роста стоило использовать тип Byte. Хотя может найтись верзила выше 255 см, но он может один на 8 млрд.

[Пётр Седов]

Сообщение от digitalis

        if ((students[i] <= 0) then break

Что-то здесь не то .

[digitalis]

Всего лишь скобка лишняя. Да и вообще они тут не нужны, это - Сишный стиль

if students[i] <= 0 then break

Давать код с маленькой ошибкой полезно для шевеления мозгой студенятам вмест тупого копипаста.

[valentun11231]

Большое спасибо!!
Очень спасли!