ReadSeqInteger(n).Where(p -> p mod 10 = 6).Min.Print
end.
0 votes Thanks 0
huston81
program minimum; var n, i, min, zn: integer; mas: array of integer; begin Write('Введите количество чисел:'); ReadLn(n); min := 50000; WriteLn('Введите числа:'); for i := 1 to n do begin Write('Введите ',i,' число: '); ReadLn(zn); if (zn < min) and ((zn mod 10) = 6) then min := zn; end; WriteLn('Минимальное число, окнчивающееся на 6 равно ', min); end.
Answers & Comments
// PascalABC.NET 3.6
begin
var n := ReadInteger;
ReadSeqInteger(n).Where(p -> p mod 10 = 6).Min.Print
end.
var
n, i, min, zn: integer;
mas: array of integer;
begin
Write('Введите количество чисел:');
ReadLn(n);
min := 50000;
WriteLn('Введите числа:');
for i := 1 to n do
begin
Write('Введите ',i,' число: ');
ReadLn(zn);
if (zn < min) and ((zn mod 10) = 6) then min := zn;
end;
WriteLn('Минимальное число, окнчивающееся на 6 равно ', min);
end.