Отыскать сумму значений частей массива D(8),стоящих на нечетных местах.Значения частей

Отыскать сумму значений частей массива D(8),стоящих на нечетных местах.Значения частей массива вводятся с клавиатуры.

Задать свой вопрос
1 ответ
program n1; uses crt; var aw:array[1..10] of integer; i,w,g:integer; begin g:=0; w:=10; for i:=0+1 to w do begin aw[i]:=random(100); write(aw[i]:6); end; writeln(); write('Чот'); for i:=0+1 to w do begin if aw[i] mod 2 = 0 then g:=g+1; end; write('Всего чотных чисел ',g); writeln(); write('Не чот'); g:=0; for i:=0+1 to w do begin if aw[i] mod 2 gt; 0 then g:=g+1;end; write('Всего не чотных чисел ',g) ; end.
только в столбик

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт