Найти сумму четных элементов массива, имеющих четные индексы

@spooderman · Регистрация: 19.01.2014

Author24 — интернет-сервис помощи студентам

Помогите обойтись без рандома, буду очень благодарен!

Pascal

program One;
const
n=30;
var
a:array [1..n] of integer;
i,x:integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random(10);
write(a[i],' ');
if (a[i] mod 2=0) and then
x:=x+a[i];
end;
writeln(x);
readln;
end.

@ermolay · 19.01.2014, 12:34

например так:

Pascal

program One;
 
const
  n = 30;
 
var
  a: array [1..n] of integer;
  i, x: integer;
 
begin
  randomize;
  x:=0;
  for i := 1 to n do 
  begin
    write('a[',i,']=');
    readln(a[i]);
    if (a[i] mod 2 = 0) and (i mod 2 = 0) then
      x := x + a[i];
  end;
  writeln('x=',x);
  readln;
end.

да, у вас условия проверки четного индекса не хватало, добавил

	19.01.2014, 12:34