Предмет: Информатика, автор: poli696

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

Ответы

Автор ответа: Щукина228
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.
Похожие вопросы
Предмет: Химия, автор: ira462106
Предмет: Математика, автор: Аноним