Очень кратко. Напишите как минимум 20 знаков, чтобы получить лучший ответ.

Очень кратко. Напишите как минимум 20 знаков, чтоб получить превосходнейший ответ.

Задать свой вопрос
1 ответ
Begin
var a:=ArrRandom(20, -100, 100);
var k:=a.Where(t-gt;((t mod 3 =0) or (t mod 5 =0)));
a.Print;
println();
println('Cумма: ', k.Sum);
println('Кол-во: ',k.Count);
println('Ср ариф: ',k.Average);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт