Программа на языке паскальАВС: найти минимальное из 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]);
Вас заинтересует