Ответы
Ответ дал:
0
Ответ:
program MinNumber
var
n, a, i, nmin, amin: Integer;
begin
Write ('Количество чисел: ');
ReadLn (n);
nmin := 1;
amin := MaxInt;
WriteLn ('Введите ', n, ' чисел:');
for i := 1 to n do begin
ReadLn (a);
if a < amin then begin
amin := a;
nmin := i;
end;
end;
WriteLn ('Вывод: ', amin, ' ', nmin);
ReadLn;
end.
Вас заинтересует
2 месяца назад
2 месяца назад
10 месяцев назад
10 месяцев назад
1 год назад
1 год назад
7 лет назад