Напишите пожалуйста программу ** Паскале См фото

Question

Напишите пожалуйста программу на Паскале См фото

---

Answer 1

// PascalABC.NET 3.6

begin

 var n := ReadInteger;

 ReadSeqInteger(n).Where(p -> p mod 10 = 6).Min.Print

end.

Comments

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.

---

Фу, какой код гадкий! Длинный и рыхлый.

---

За такие коды Паскаль и ругают. А надо ругать не коды, а кодеров.