Дано n чисел найдите минимальное из них

ZнyцPлaй ZнyцPлaй    2   20.09.2019 18:30    2

Ответы
Qdiiit Qdiiit  08.10.2020 05:12
Uses crt;
var x,i,n,min;integer;
begin
readln(n);
read(x);
min:x;
for i:1 to n-1 do
begin
readln(x);
if min > x then min:x;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика