Помогите пожалуйста с ДЗ по информатике, язык-Паскаль.
Приложения:
Ответы на вопрос
Ответил petyaGavrikov
0
// PascalABC.NET 3.3
begin
var a:=ArrRandom(10,10,90); a.Println;
writeln('S = ',a.Sum);
writeln('K = ',a.Where(x->x>30).Count);
writeln('Max = ',a.Max);
end.
Пример:
47 31 22 90 37 88 42 72 23 47
S = 499
K = 8
Max = 90
begin
var a:=ArrRandom(10,10,90); a.Println;
writeln('S = ',a.Sum);
writeln('K = ',a.Where(x->x>30).Count);
writeln('Max = ',a.Max);
end.
Пример:
47 31 22 90 37 88 42 72 23 47
S = 499
K = 8
Max = 90
Новые вопросы