Информатика, опубликовано 2018-08-22 22:18:28 by Гость
Найти сумму элементов массива с четными номерами позиции В Pascal. Очень нужно!!!!
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на