Предмет: Информатика, автор: 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.
Похожие вопросы
Предмет: Алгебра, автор: aida08062000
Предмет: Математика, автор: Аноним