натолкните на идею

[ronny137]

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

program zad4;
uses crt;
var
a:array [1..10] of integer;
s,i:integer;
begin
clrscr;
randomize;
for i:=1 to 10 do
a[i]:=random (20);
for i:=1 to 10 do
write (a[i]:4);
s:=0;
for i:=1 to 10 do
if ( i mod 2=0) then
begin
пока a[i]<>0 выполнять  S:=s+a[i];


writeln;
write (s);
end.

[Grag]

Вот это :

for i:=1 to 10 do
a[i]:=random (20);
for i:=1 to 10 do
write (a[i]:4);

делай в одном цикле, хотя и не принципиально, но код читается лучше... ИМХО.
А это что?

if ( i mod 2=0) then

Зачем так? делай так if not odd(i) then

S:=0;
i:=1;
while (i<=10) and (a[i]<>0) do
  begin
    if not odd(i) then S:=S+a[i];
    Inc(i)
  end;