Информатика, Паскаль

[xJohnx]

[ROMA2PVT]

Конечно нето:

program mas;
var
 a :array[1..10] of integer;
 i,k,d :integer;
begin
 writeln('Vvedite 10 chisel : ');
 for i:=1 to 10 do
  begin
   write('N',i,': ');
   readln(a[i]);
  end;
  d:=0;
  k:=0;
 for i:=1 to 10 do
 begin
 if not odd(i) then d:=d+a[i];
 end;
 writeln('Сумма элементов с чётными индексами: ',d);
end.

Смотри.

[xJohnx]

вот именно! четыне индексы нормально работают, а вот юольше 4=ч- нет!

[ROMA2PVT]

Ты мне объясни тебе надо всё в одной программе или в двух реализовать?

[xJohnx]

в одной, но если не можешь- то разбей на 2-е

[ROMA2PVT]

Чёшь ты тогда мне мозги е..ш извиняюсь за грубость:

program mas;
var
 a :array[1..10] of integer;
 i,k,d :integer;
begin
 writeln('Vvedite 10 chisel : ');
 for i:=1 to 10 do
  begin
   write('N',i,': ');
   readln(a[i]);
  end;
  d:=0;
  k:=0;
 for i:=1 to 10 do
 begin
 if a[i]>4 then k:=k+a[i];
 if not odd(i) then d:=d+a[i];
 end;
 writeln('Сумма элементов с чётными индексами: ',d,' больше 4-х: ',k);
end.

Вот она вся полностью.

[xJohnx]

ты не понял! у меня не правельно выдает значения больше 4-х! я скрин скинул- глянь!

[ROMA2PVT]

На скрине всё чётко.Единственный элемент который больше 4-х это 5.Вот сумма и ровна 5.

[xJohnx]

[ROMA2PVT]

Ну и? всё верно.