var a: array[1..1000] of integer; i,s,N: integer; begin s:=0; write('Введите N: '); readln(N); for i:= 1 to N do begin readln(a[i]); if i mod 2 = 0 then s:=s a[i]; end; writeln('Сумма элементов с четными номерами: ',s); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
