Дан одномерный массив A(N).Найдите творение четных чисел этого массива.

Дан одномерный массив A(N).Найдите творение четных чисел этого массива.

Задать свой вопрос
1 ответ
Var a:array[1..100]of integer;n,i:integer;begin readln(n);randomize; for i:=1 to n do begin a[i]:=random(100); write(a[i], ' '); end;  for i:=1 to n do begin if not(odd(a[i])) then S:=S+a[i];end;Writeln('Summa=',S);end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт