Var const n=7; I,sum:integer; B:array[1..N] of integer; Begin Sum:=0; For I:=1 to N do Readl B[I]; For I:=1 to N do Begin If I mod 2=0 then sum:=sum+B[i]; End; Writeln(sum); End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
