В массиве заменить элементы с четными номерами суммой элементов с нечетными номерами - Pascal ABC - Ответ 8080211

const max=100;
var a:array[1..max] of integer;
    n,i,s:integer;
begin
randomize;
repeat
write('Размер массива от 2 до ',max,' n=');
readln(n);
until n in [2..max];
writeln('Исходный масив');
s:=0;
for i:=1 to n do
 begin
  a[i]:=1+random(20);
  if odd(i)then s:=s+a[i];
  write(a[i]:4);
 end;
writeln;
writeln('Сумма элементов с нечетными номерами=',s);
writeln('Измененный массив');
for i:=1 to n do
 begin
  if i mod 2=0 then a[i]:=s;
  write(a[i]:4);
 end;
end.

const max=100;
var a:array[1..max] of integer;
    n,i,k,p:integer;
begin
randomize;
repeat
write('Размер массива от 2 до ',max,' n=');
readln(n);
until n in [2..max];
writeln('Исходный масив');
for i:=1 to n do
 begin
  a[i]:=random(5);
  write(a[i]:4);
 end;
writeln;
p:=0;
k:=0;
i:=n;
while(i>0)and(k<2)do
 begin
  if a[i]=0 then inc(k);
  if k=2 then p:=i
  else dec(i);
 end;
if p=0 then write('В массиве нет двух нулевых элементов')
else write('Номер предпоследнего нулевого элемента=',p);
end.