Предмет: Информатика,
автор: lik18da
Программа на языке паскальАВС: найти минимальное из 50 введенных чисел
Ответы
Автор ответа:
1
Ответ:
- begin
- var a := ReadArrInteger(50);
- Println('Минимальное:', a.Min);
- end.
Пример работы:
Приложения:
lik18da:
а есть еще способы? можно ли как нибудь заменить ReadArrInteger(50)?
Можно на статический поменять:
var a: array [1..50] of integer;
for var i := 1 to 50 do read(a[i]);
var a: array [1..50] of integer;
for var i := 1 to 50 do read(a[i]);
Похожие вопросы
Предмет: Русский язык,
автор: v1russs
Предмет: Русский язык,
автор: Evalike123olu
Предмет: Русский язык,
автор: ящейка
Предмет: Математика,
автор: juraevtimka007
Предмет: История,
автор: Dilasuperklass