Помоги те плииз 40 баллов даю напишите этуже программу(вывод последнего чётного элемента...

Question

Помоги те плииз 40 баллов даю напишите этуже программу(вывод последнего чётного элемента массива), но с while

---

Comments

эта программа ваша вернет вам первый четный, а не последний, если хотите последний то либо for i := 1 to n, либо то что у вас но c break

Answer 1

var a: array[1..100] of integer;

n,i,s:integer;

begin

    i:=1;

    readln(n);

    while not(i=n) do

    begin

    a[i]:= random(61)-20;

    inc(i);

    end;

     

    i:=1;

    while not(i=n) do

    begin

    write(a[i],' ');

    inc(i);

    end;

     

    i:=1;

    while not(i=n) do

    begin

    if (a[i] mod 2 = 0 ) then s:=a[i];

    i:=i+1;

    end;

    writeln;

    write(s);

end.