Информатика, вопрос задал lik18da , 2 года назад

Программа на языке паскальАВС: найти минимальное из 50 введенных чисел

Ответы на вопрос

Ответил LRSM
1

Ответ:

  • begin
  • var a := ReadArrInteger(50);
  • Println('Минимальное:', a.Min);
  • end.

Пример работы:

Приложения:
lik18da: а есть еще способы? можно ли как нибудь заменить ReadArrInteger(50)?
LRSM: Можно на статический поменять:
var a: array [1..50] of integer;
for var i := 1 to 50 do read(a[i]);
Предыдущий вопрос
Следующий вопрос
Новые вопросы