помогите пожалуйста! Найти сумму элементов массива, имеющих нечетное значение

Ответы 2

Вместо 10 подставляешь число элементов массива

var a:array[1..10] of integer;sum,i:integer;beginWriteln('Zadayte massiv');for i:=1 to 10 do readln(a[i]);sum:=0;for i:=1 to 10 do if i mod 2 <>0 then sum:=sum+a[i];writeln('Summa = ',sum);end.
- Автор:
  teresa7olk
- 5 лет назад
- 0
program picaso; uses crt;type vector=array[1..100] of integer;var a:vector; i,n,s:integer;begin clrscr; writeln('n :');readln(n); for i:=1 to n do begin write('значение ',i,' : '); readln(a[i]); end; s:=0; for i:=1 to n do if i mod 2 <>0 then s:=s+a[i]; writeln('сумму элементов массива, имеющих нечетное значение: ',s); readln;end.
- Автор:
  avery54
- 5 лет назад
- 0
Добавить свой ответ

Еще вопросы