Язык PASCAL ABC Дано 50 чисел. Вычислить наибольшее из них.

Question

Язык PASCAL ABC
Дано 50 чисел. Вычислить наибольшее из них.

Answer 1

Вариант №1

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
begin
  //Для теста заполним массив сл. числами
  var a := arrrandom(50); a.Println;
  println('Максимальное значение',a.max);
end.

Тестовое решение:
25 78 95 85 97 57 77 49 58 26 36 57 74 24 19 94 66 33 32 43 32 7 64 24 11 2 60 45 6 40 31 19 40 53 80 67 18 26 39 23 53 63 26 18 84 11 11 72 19 79
Максимальное значение 97

Вариант №2 (с циклом for и заполнением массива с клавиатуры)

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const
  n = 50;

var
  a: array[1..n]of integer;
  i, max: integer;

begin
  max := -MaxInt;
  for i := 1 to n do
  begin
    writeln('Введите ', i, ' число ');readln(a[i]);
    if a[i] > max then max := a[i];
  end;
  writeln('Максимальное ', max);
end.

Comments

Random зачем? Мне говорили что это надо через цикл for.

---

А в условии задачи вы постеснялись об этом сказать

---

Вы будете руками вводить 50 значений?

---

Мне надо через цикл for

---

А чем это решение не удовлетворяет? Программа работает и выдает нужные результаты, вы же сами просили на PascalABC

---

Вариант №2 корректен. А №1 - нет. Было написано требование: "язык Pascal ABC". Такая система действительно существовала, но с сентября 2007 года она не развивается и не поддерживается разработчиками. Но тем не менее, наверно все же некорректно использовать особенности версии PascalABC.NET 3.1 в подобных условиях.

---

Согласен, поэтому и добавил вариант 2

---

И еще: ответ был признан правильным, т.е. принят, и в этом случае вносить в него изменения запрещено.

---

Понятно, спасибо!