Составить программу , которая в Одномерном массиве размерностью 14 ( элементами являются случайные числа от 10 до 99) находит наименьший элемент оканчивающихся на 1.
Ответы
Ответ дал:
0
// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(14,10,99); a.Println;
var s:=a.Where(x->x mod 10=1);
if s.Count=0 then Writeln('Нет элементов, оканчивающихся на 1')
else Writeln('Наименьший элемент, оканчивающийся на 1: ',s.Min)
end.
Пример
34 32 61 31 56 42 23 89 10 25 59 15 60 73
Наименьший элемент, оканчивающийся на 1: 31
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(14,10,99); a.Println;
var s:=a.Where(x->x mod 10=1);
if s.Count=0 then Writeln('Нет элементов, оканчивающихся на 1')
else Writeln('Наименьший элемент, оканчивающийся на 1: ',s.Min)
end.
Пример
34 32 61 31 56 42 23 89 10 25 59 15 60 73
Наименьший элемент, оканчивающийся на 1: 31
Приложения:

Ответ дал:
0
Можешь сфотографировать,пожалуйста?а то ничего не понятно
Ответ дал:
0
Как может быть непонятен ТЕКСТ?
Вас заинтересует
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад