РЕбят, проверьте програмки, очень надо..

Program ar1;
var n:integer;
i:integer;
a: array [1..10] of integer;
begin
writeln(n);
readln(n);
for i:=1 to n do a:=i*2-1;
for i:=1 to n do writeln('a',a);
end.

Program ar2;
var n:integer;
i:integer;
a: array [1..10] of integer;
begin
writeln(n);
readln(n);
a[1]:=2;
for i:=2 to n do a:=sqr(a[i-1]*2) ;
for i:=1 to n do writeln('a',a);
end.

Program ar3;
var d:integer;
i:integer;
n:integer;
a: array [1..10] of integer;
begin
writeln(n);
readln(n);
writeln(A[1]);
readln(A[1]);
writeln(d);
readln(d);
a[1]:=2;
for i:=2 to n do a:=a[i-1]+d;
for i:=1 to n do writeln('a',a);
end.

program ar5;
var
a:array[1..100] of integer;
b:array[1..100] of integer;
i,n: integer;
begin;
write ('vvedite chislo n ');
readln(n);
for i:=1 to n do
begin
a:= random(10);
write(a,' ');
end;
writeln;
for i:=1 to n do
begin
b:= random(10);
write(b,' ');
end;
writeln;
for i:=1 to n do
if a>b then write(a,' ') else write(b,' ');
readln;
end.

program ar6;
var
a:array[1..100]of integer;
i, n, k:integer;
Begin
write('N: ');
readln(n);
for i:=1 to n do
a:=random(n);
for i:=1 to n do
write(a, ' ');
writeln;
write('K: ');
readln(k);
for i:=1 to n do
a:=a+a[k];
for i:=1 to n do
write(a,' ');
end.

program ar7;
var n,i,k,k1,m,min,max:integer;
a:array[1..10] of integer;
begin
read(n);
for i:=1 to n do begin
a:=random(20)-10;
if max then begin k:=i; max:=a; end;
if min>a then begin k1:=i; min:=a; end;
write(a,' ');
end;
writeln;
m:=a[k];
a[k]:=a[k1];
a[k1]:=m;
for i:=1 to n do
write(a,' ');
end.

Array1. Дано целое число N (>0). Сформировать и вывести целочисленный массив размера N, содержащий N первых положительных нечетных чисел: 1, 3, 5, .
Array2. Дано целое число N (>0). Сформировать и вывести целочисленный массив размера N, содержащий степени двойки от первой до N-й: 2, 4, 8, 16, .
Array3. Дан массив размера N и целые числа K и L (1 ≤ K ≤ L ≤ N). Найти среднее арифметическое элементов массива с номерами от K до L включительно.
Array5. Даны два массива A и B одинакового размера N. Сформировать новый массив C того же размера, каждый элемент которого равен максимальному из элементов массивов A и B с тем же индексом.
Array6. Дан массив A размера N и целое число K (1 ≤ K ≤ N). Преобразовать массив, увеличив каждый его элемент на исходное значение элемента A[K].
Array7. Дан массив размера N. Поменять местами его минимальный и максимальный
элементы.

9 класс.