Дан массив, содержащий 20 целых чисел из промежутка [-100,100]. напишите программу,позволяющую найти и вывести наименьшее содержщееся в массиве положительное число,десятичная запись которого оканчивается цифрой 7. если таких чи...
Дан массив, содержащий 20 целых чисел из промежутка [-100,100]. напишите программу,позволяющую найти и вывести наименьшее содержщееся в массиве положительное число,десятичная запись которого оканчивается цифрой 7. если таких чисел нет,укажите это
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(20,-100,100); a.Println;
var b:=a.Where(x->(x>0) and (x mod 10=7));
if b.Count>0 then Writeln('Искомое число ',b.Min)
else Writeln('Нет подходящих чисел')
end.
Пример
-5 39 27 94 -50 -3 -73 -18 -36 45 -58 47 45 69 -85 -78 -6 -99 4 -32
Искомое число 27
Не нашли ответ?
Похожие вопросы