Предмет: Информатика,
автор: реййзар
Сумма 10 случайных чисел. Вывести числа больше 5. Найти минимальное число среди них. На языке Паскаль.
Ответы
Автор ответа:
0
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-50,50); a.Println;
Writeln('S=',a.Sum);
Writeln('min=',a.Where(x->x>5).Println.Min)
end.
Пример
25 28 13 32 11 34 15 -37 -13 50
S=158
25 28 13 32 11 34 15 50
min=11
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-50,50); a.Println;
Writeln('S=',a.Sum);
Writeln('min=',a.Where(x->x>5).Println.Min)
end.
Пример
25 28 13 32 11 34 15 -37 -13 50
S=158
25 28 13 32 11 34 15 50
min=11
Похожие вопросы
Предмет: Қазақ тiлi,
автор: lovead
Предмет: Химия,
автор: farfibaevkamil260720
Предмет: Литература,
автор: lauramatkovska
Предмет: Математика,
автор: evdotyuk
Предмет: Биология,
автор: ДК17