Написать программу определения минимального из введённых N чисел. Паскаль, цикл-for. Помогите пожалуйста!!!
Ответы
Ответ дал:
0
program Comparison;
var
N, i, num, min:integer;
begin
write('Введите количество чисел: ');
readln(N);
write('Введите число: ');
readln(num);
min:=num;
for i:= 1 to (N-1) do
begin
readln(num);
if (num<min) then min:=num;
end;
writeln('Минимальное число в последовательности: ',min);
end.
Ответ дал:
0
Спасибо,но что за переменная num?
Ответ дал:
0
number - число, которое ввёл пользователь (сокращено до num)
Вас заинтересует
2 года назад
2 года назад
3 года назад
9 лет назад