Ответ(ы) на вопрос:
Гостьprogram Znanija;
var
i, min:integer;
c:array[1..5] of integer;
begin
for i:=1 to 5 do
read(c[i]);
min := c[1];
for i:=1 to 5 do
if c[i] < min then
min := c[i];
writeln(min);
end.
Не нашли ответ?
Похожие вопросы