Действия с массивами

[Domik92]

Через 15 минут нужны.
1. Подсчитать среднее значение четных элементов в заданном целочисленном массиве из п элементов, проверяя, что в нем есть хотя бы один четный элемент.
2. Даны два целочисленных массива А и В из п элементов каждый. Записать в каждый элемент массива В с индексом к сумму всех элементов массива А, с индексами, не превосходящими k.

Срочно надо

[alex_fcsm]

var a:array[1..1000] of integer;
    i,n,k:integer;
    x:real;
    flag:boolean;
begin
writeln('Inpu n');
readln(n);
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
k:=0;flag:=false;x:=0;
for i:=1 to n do
 if a[i] mod 2 =0 then begin
                        flag:=true;
                        inc(k);
                        x:=x+a[i];
                       end;
                       writeln;
if flag then writeln((x/k):5:2)
   else writeln('No');
end.

[alex_fcsm]

var a,b:array[1..1000] of integer;
    i,j,n,sum:integer;

begin
writeln('Input n');
readln(n);
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
for i:=1 to n do
 begin
  sum:=0;
  for j:=1 to i do
   sum:=sum+a[j];
 b[i]:=sum;
 end;
writeln;
for i:=1 to n do
 write(b[i]:6);
end.