Массивы в Паскале

[Dartchuwak]

Помогите выполнить задачку про массивы
1. Даны массивы a1,a2,…,an и b1,b2,…,bn. Получить массив C, элементы которого:a1,b1,a2,b2,...,an,bn .

2. В заданной матрице поменять местами первый столбец со столбцом, содержащим наибольший элемент матрицы.

[Sazary]

И что непонятно? Задачки-то элементарные.
Первая:

uses crt;
const n=10;
var
a,b : array[1..n] of integer;
c : array[1..2*n] of integer;
i : integer;
begin
clrscr;
for i:=1 to n do
 begin
 a[i] := i*2-1;
 write(a[i]:3);
 end;
writeln;
for i:=1 to n do
 begin
 b[i] := i*2;
 write(b[i]:3);
 end;
writeln;
for i:=1 to 2*n do
 if i mod 2 = 0 then c[i]:=b[i div 2]
 else c[i] := a[i div 2+1];

for i:=1 to 2*n do
 write(c[i]:3);

readln;
end.

Вторую напишете сами.
Цикл

for i:=1 to n do
 begin
 tmp := a[i,1];
 a[i,1] := a[i,numj];
 a[i,numj] := tmp;
 end;

меняет местами первый столбец со столбцом numj.

Пользуйтесь поиском.

[JekaX]

вторая задачка )

var
A : Array [1..3,1..3] of integer;
i,j,max,index : integer;
begin

writeln ('Vvedite massiv');
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
Readln (A[i,j]) ;
end;
end;
max:=A[1,1];
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
if max<A[i,j] then
begin
index:=j
end;
end;
end;

for i:=1 to 3 do
begin
write(A[i, index]);
for j:=1 to 3 do
if (j<>index) then
write(A[i,j]);
writeln('');
end;
readln;

end.

[Alemhzan]

1)Определить среднее арифметическое всех элементов массива.
2)Дан массив чисел.Ко всем отрицательным элементам прибавить элемент с номером т1, к остальным элементам с номером т2.
3)Найти среднее арифметические положительных и отрицательных элементов массива.
4)Дан массив целых чисел.Определить количество элементов, отличных от последнего элемента.
5)известны данные о количестве осадков, выпавших за каждый день феврале.Верно ли, что по чётным числам выпадало больше осадков, чем по нечётным?
6)Дан массив.Определить количество элементов, больших суммы всех элементов массива, и напечатать их номера.
7)В массиве записана информация о стоимости 30 видов товара.Определить стоимость двух самых дорогих видов товара.
8)Дан массив.Скопировать все его элементы в другой массив такого же размера в том же порядке расположения элементов.
9)Известны данные о численности населения (в млн. жителей) и площади (в тыс. кв.км.) 28 государств.Определить общую численность населения в "маленьких" государствах (чья площадь не превышает р тыс. кв.км.).
10)Даны два массива одного размера.Получить третий массив, каждый элемент которого равен произведению элементов с одинаковыми номерами в заданных массивах.

P/S. Плийз помогите, очень нужно.буду очень признателен !!!хотя бы 70%!!