Дан массив Z[15] заполненный случ. числами от 0..200
Найти:
а) Максимум
б) Минимум
в) Кол-во элементов <10
г) Кол-во чётных элементов
Ответы
Ответ дал:
0
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var a:=ArrRandom(15,0,200); a.Println;
Writeln('max=',a.Max,', min=',a.Min);
Writeln('Кол-во меньших 10 равно ',a.Where(x->x<10).Count);
Writeln('Кол-во четных равно ',a.Where(x->x.IsEven).Count)
end.
Тестовое решение:
122 186 121 46 21 140 71 145 177 89 8 64 115 10 56
max=186, min=8
Кол-во меньших 10 равно 1
Кол-во четных равно 8
begin
var a:=ArrRandom(15,0,200); a.Println;
Writeln('max=',a.Max,', min=',a.Min);
Writeln('Кол-во меньших 10 равно ',a.Where(x->x<10).Count);
Writeln('Кол-во четных равно ',a.Where(x->x.IsEven).Count)
end.
Тестовое решение:
122 186 121 46 21 140 71 145 177 89 8 64 115 10 56
max=186, min=8
Кол-во меньших 10 равно 1
Кол-во четных равно 8
Ответ дал:
0
Можно объяснить пожалуйста?
Ответ дал:
0
Что объяснить конкретно?
Ответ дал:
0
Как через программу решить)
Ответ дал:
0
Я не понимаю этой Вашей фразы
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад