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

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

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

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

Задать свой вопрос
Виталий Супрунчик
На каком тесте, моя программа дает сбой?
Милана
собственно у меня только вводятся числа и всё...
Семён Гелис
напиши, что ты пишешь
Кирюха Батляев
Ввод:61 2 3 4 5 6
Sashok Sheloputin
вывод : 1
Виолетта Залотина
аа,я очень большие числа делал :),а так всё одинаково есть ошибка, если ввести к примеру 2 3 4 то выводит 3
Marinka Steshukova
помтому что 2 - количество чисел, а 3 4 - последовательность....
Чебина София
упс,сообразил)
Лилия Фабровская
Пойти выучиться блок-схемы живописать что ли....
Артём Самосов
xD
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 lt; answer)then
      answer := temp;
  end;
Writeln(answer);
end.

Program minimalnoe_chislo;
var
a,b,c,min: integer;
begin
writeln('Введите 3 числа: ');
readln(a,b,c);
if alt;b then min:=a
else min:=b;
if clt;min then min:=c;
writeln('Наименьшее из чисел = ',min);
end.
Морисец Вовка
пробуй блок схему сделать либо метод решения
Пашок Бойнев
я ж разговаривал что без блок схемы,у меня с этим у самого трудности)
Арсений
не совсем то, что необходимо, "случайная последовательность" подразумевает любое количество цифр
Вася
к примеру тест 1 2 3 4 5 6 7 не пройдет
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт