Задачки на массивы

[maikil]

Здравствуйте, помогите с задачками
1.Ввести с клавиатуры целочисленный двумерный массив размером N * M элементов (N , M <= 4 ). Определить среднее арифметическое всех положительных элементов.

2. Ввести с клавиатуры целочисленные массивы A из N элементов и B из M элементов (N, M <= 8). Сформировать и вывести на экран массив С путем слияния A и И так, чтобы сначала располагались все элементы А, а затем - элементы В.

--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Можите не решать, тут мне помогли, кто хочет, может оценить правильность решения и про комментировать

1
program
for_1;
uses
crt;
const
M=3;
N=3;
var
mas:array[1..M,1..N] of Integer;
i,j,sum,num:Integer;
begin
ClrScr;
for i:=1 to M do
begin
for j:=1 to N do
begin
writeln('Input mas[',i,'][',j,']...');
readln(mas[j]);
end;
end;
writeln('OK!');
sum:=0;
num:=0;
for i:=1 to M do
begin
for j:=1 to N do
begin
if (mas[j]>0) then
begin
inc(num);
sum:=sum+mas[j];
end;
end;
end;
writeln('Srednee arifmeticheskoe=',sum/num:5:7);
writeln('Press any key to exit...');
readkey
end.


2
program
for_2;
uses
crt;
const
M=5;
N=4;
var
A:array[1..N] of integer;
B:array[1..M] of integer;
C:array[1..N+M] of integer;
i,counter:integer;
begin
ClrScr;
counter:=1;
for i:=1 to N do
begin
writeln('Input A[',i,']...');
readln(A);
C[counter]:=A;
inc(counter);
end;
for i:=1 to M do
begin
writeln('Input B[',i,']...');
readln(B);
C[counter]:=B;
inc(counter);
end;
writeln('Massiv C:');
for i:=1 to M+N do write(C, ' ');
writeln;
writeln('Press any key to exit...');
readkey
end.

Можно тему закрывать ну иль пусть остаётся может кому и пригодиться

[Хыиуду]

Не считая нескольких лишних begin-end в первой программе, все правильно.