Предмет: Информатика,
автор: poli696
Дано n чисел найдите минимальное из них
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Биология,
автор: lissashvetz
Предмет: Математика,
автор: katiraamarova
Предмет: Химия,
автор: ira462106
Предмет: Математика,
автор: Аноним