В целочисленной массиве а , состоящим из 10 частей от -20

В целочисленной массиве а , состоящим из 10 частей от -20 до 20, отыскать сумму положительных, нечетных частей кратных 3, с помощью рандома

Задать свой вопрос
2 ответа
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var a:= ArrRandom(10,-20,20);a.Println;
Writeln(a.Where(t -gt; (t.isOdd)and(t mod 3 = 0)).sum);
end.

Var s, a, t: integer;begins := 0;randomize;for t := 1 to 10 dobegina := random(41)  - 20;if (a mod 3 = 0) and (a mod 2 = 1) then s := s + a;end;writeln(s);end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт