Написать программу нахождения минимального из N чисел в Pascal

Question

Написать программу нахождения минимального из N чисел в Pascal

Answer 1

Var n,i,m,a: integer;
begin
write('Введите количество чисел (N): ');
readln(n);
write('Введите число: ');
readln(a);
m:=a;
for i := 1 to n-1 do
begin
write('Введите число: ');
readln(a);
if aend;
writeln('Минимальное число в последовательности: ',m)
end.

Comments

var n,i,m,a: integer;
begin
write('Введите количество чисел (N): ');
readln(n);
write('Введите число: ');
readln(a);
m:=a;
for i := 1 to n-1 do
begin
write('Введите число: ');
readln(a);
if aend;
writeln('Минимальное число в последовательности: ',m)
end.

---

выводит другое число, а не наименьшее

---

а нет, всё нормально)

---

спасибо)