Предмет: Информатика,
автор: qwertynastya37
Напишите пожалуйста программу на Паскале
См фото
Приложения:
Ответы
Автор ответа:
0
// PascalABC.NET 3.6
begin
var n := ReadInteger;
ReadSeqInteger(n).Where(p -> p mod 10 = 6).Min.Print
end.
Похожие вопросы
Предмет: Литература,
автор: JohnSletun
Предмет: Русский язык,
автор: azideh04
Предмет: Химия,
автор: mimibadger
Предмет: Математика,
автор: светлана332
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.