Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Вычислите сумму элементов массива из 10 целых чисел,стоящих на нечетных местах(в паскаль)

Ответ оставил Гость

Var a:array [1..10] of integer; 
i,sum:integer; 
begin 
sum:=0; 
writeln(Введите элементы массива); 
for i:=1 to 10 do begin 
read(a[i]); 
if i mod 2<>0 then sum:=sum+a[i]; 
end; 
writeln(sum); 
end.