Предмет: Информатика,
автор: Аноним
помогите срочно!!! найдите минимальное из n чисел на паскале
Ответы
Автор ответа:
0
var
i, min, a, n: integer;
begin
min := trunc(power(2, 31) - 1);
readln(n);
for i := 1 to n do
begin
readln(a);
if (a < min) then
min := a;
end;
writeln(min);
end.
i, min, a, n: integer;
begin
min := trunc(power(2, 31) - 1);
readln(n);
for i := 1 to n do
begin
readln(a);
if (a < min) then
min := a;
end;
writeln(min);
end.
Похожие вопросы
Предмет: Математика,
автор: 40ayarik2020
Предмет: Другие предметы,
автор: Dar702440
Предмет: История,
автор: pant19841205sss
Предмет: Физика,
автор: Irina19796