Информатика Архивный вопрос

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

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

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

10 комментария:

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

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

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

Ввод:61 2 3 4 5 6

вывод : 1

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

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

упс,понял)

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

Ответы

Гость

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

4 комментария:

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

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

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

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

Гость

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.