Предмет: Информатика,
автор: tanyaterenteva2
Написать программу нахождения минимального из N чисел в Pascal
Ответы
Автор ответа:
2
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 a<m then m:=a
end;
writeln('Минимальное число в последовательности: ',m)
end.
begin
write('Введите количество чисел (N): ');
readln(n);
write('Введите число: ');
readln(a);
m:=a;
for i := 1 to n-1 do
begin
write('Введите число: ');
readln(a);
if a<m then m:=a
end;
writeln('Минимальное число в последовательности: ',m)
end.
выводит другое число, а не наименьшее
а нет, всё нормально)
спасибо)
Похожие вопросы
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.