Question

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

Answer 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 > 0 then g:=g+1;end; write('Всего не чотных чисел ',g) ; end.
только в столбик