Задание по PascalABC нужно сделать программу и блок схему Вводится произвольная...

Question

Задание по PascalABC нужно сделать программу и блок схему

Вводится произвольная последовательность действительных чисел. Найти наименьшее из всех чисел

Пожалуйста решите старым добрым способом как учат в школах)
Program
var
begin
end и.т.д

Comments

На каком тесте, моя программа дает сбой?

---

лично у меня только вводятся числа и всё...

---

напиши, что ты пишешь

---

Ввод:61 2 3 4 5 6

---

вывод : 1

---

аа,я слишком большие числа делал :),а так всё равно есть ошибка, если ввести например 2 3 4 то выводит 3

---

помтому что 2 - количество чисел, а 3 4 - последовательность....

---

упс,понял)

---

Пойти научиться блок-схемы рисовать что ли....

---

xD

Answer 1

Program minimalnoe_chislo;
var
a,b,c,min: integer;
begin
writeln('Введите 3 числа: ');
readln(a,b,c);
if aelse min:=b;
if cwriteln('Наименьшее из чисел = ',min);
end.

Comments

попробуй блок схему сделать или алгоритм решения

---

я ж говорил что без блок схемы,у меня с этим у самого проблемы)

---

не совсем то, что нужно, "произвольная последовательность" предполагает любое количество цифр

---

например тест 1 2 3 4 5 6 7 не пройдет

Answer 2

Program Min_Digit;
var
i, answer,temp, count:integer;
begin
answer := 1000*1000*1000+13;
Read(count);
For i:= 1 to count do
  begin
    Read(temp);
    if (temp < answer)then
      answer := temp;
  end;
Writeln(answer);
end.