Файлы и массивы

[xviruspt]

Нужно написать прогромму на паскале по следующим заданям:
№1.Массивы.
1).Дано 2 массива.Найти их сумму.
2).Сумма в K рублей положена в банк.При этом прирост составляет P% ежегодно.Через какой промежуток времени сумма достигнет M рублей.(M>K)?
№2.Файлы.
1).Дан файл f.Получить копию файла f в файле g.
2).Даны следующие описания переменных:
type текст = file of Char.
Описать процедуру:
add last (t,c) добавляющую литеру "c" в конец текста t;
Заранее Благодарен.

[Pro_RocK]

задача1

var a,b:array[byte]of integer;
i,n,s1,s2:integer;
Begin randomize;
read(n);s:=0;
for i:=1 to n do begin
    a[i]:=random(100);
    b[i]:=random(100);
    s:=s+a[i]+b[i];
end;
write(s);
End.

Задача 2

var  k,p,m,d:integer;
Begin
readln(k,p,m);
d:=0;
while k<m do begin
    k:=k+(p*k)div 100;
    d:=d+1;
end;
write(d);
readln;
End.

Задача 3

var  f,g:text;
x:integer;
Begin
assign(f,'d:\input.txt');
reset(f);assign(g,'d:\output.txt');
rewrite(g);
while not eof(f) do begin
     while not eoln(f) do begin
           read(f,x);
           write(g,x);
     end;
readln(f);
writeln(g);
end;
close(f);close(g);
End.

[xviruspt]

Респект и уважуха спс огромное!!!!!!!!!!

[Nemfis]

А сколько возьметее?

[ROMA2PVT]

за такое деньги грех брать.

writeln('Чётные элементы массива: ');
for i:=1 to n do
if not odd(a[i]) then
begin
write(a[i]:2,' ');
end;

[Nemfis]

это уже рабочая программа??

[ROMA2PVT]

нет это фрагент вывода чётных элементов.Остаётся заполнить массив и переенные описать.

[Nemfis]

ЧЕта не работает...... я просто в этом вообще не как((

[ROMA2PVT]

Uses
  CRT;
Var
  a:array [1..100] of integer;
  i,n:integer;
begin
Clrscr;
write('Введите количество элементов: ');
readln(n);
   for i:=1 to n do
      begin
         a[i]:=random(10)-2;
         write(a[i]:2,' ');
      end;
writeln;
writeln('Чётные элементы массива: ');
   for i:=1 to n do
       if not odd(a[i]) then
             begin
                write(a[i]:2,' ');
             end;
readkey;
end.

[Nemfis]

Спасибо огромное!!!!! Респект!!!!