Предмет: Информатика,
автор: KrinyaKentuki
Найти сумму элементов массива с четными номерами позиции
В Pascal. Очень нужно!!!!
Ответы
Автор ответа:
0
var summ:integer;
begin
var a := Arr(1,2,3,4,5,6,7,8,9);
for var i:=0 to 8 do begin
write('[',a[i],'] ');
end;
writeln('');
for var i:=0 to 8 do begin
if (i mod 2)=1 then begin
summ:=summ+a[i];
write('[',a[i],'] ');
end;
end;
writeln('summa = ',summ);
end.
begin
var a := Arr(1,2,3,4,5,6,7,8,9);
for var i:=0 to 8 do begin
write('[',a[i],'] ');
end;
writeln('');
for var i:=0 to 8 do begin
if (i mod 2)=1 then begin
summ:=summ+a[i];
write('[',a[i],'] ');
end;
end;
writeln('summa = ',summ);
end.
Похожие вопросы
Предмет: Алгебра,
автор: aida08062000
Предмет: Физика,
автор: eldanim2008
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: Аноним
Предмет: Биология,
автор: timergalieva19