Question

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

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.