Предмет: Информатика,
автор: InLoveWithHim2203
Написать программу (и желательно блок схему) для задачи:
Ввести 10 чисел, и вывести на экран наименьшее.
Ответы
Автор ответа:
0
a:array[1..10] of integer;
i, min:integer;
begin
for i:=1 to 10 do
readln(a[i]);
min:=a[1];
for i:=1 to 10 do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
i, min:integer;
begin
for i:=1 to 10 do
readln(a[i]);
min:=a[1];
for i:=1 to 10 do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Интересные вопросы
Предмет: История,
автор: manarbekovazhanel23
Предмет: Русский язык,
автор: 0t0a0n0y0a
Предмет: Математика,
автор: Аноним
Предмет: Геометрия,
автор: Джесси115