Предмет: Информатика,
автор: ЛинVel
Выбрать наименьшее значение из 20 чисел вводимых с клавиатуры. Программа в Паскале
Ответы
Автор ответа:
0
var i, min, num: integer;
begin
readln(min);
for i := 1 to 19 do
begin
readln(num);
if (num < min) then
min := num;
end;
writeln(num);
end.
begin
readln(min);
for i := 1 to 19 do
begin
readln(num);
if (num < min) then
min := num;
end;
writeln(num);
end.
Похожие вопросы
Предмет: Математика,
автор: gunesbozkurt1113
Предмет: Математика,
автор: kseniacernenko35
Предмет: Геометрия,
автор: aliaabdymanapova208
Предмет: Алгебра,
автор: alekscom23463
Предмет: Математика,
автор: savelievser201