Организация программ с использованием процедур .использованием параметров-значений и параметров переменных

[Фрейтор 40-500]

дано два массива ,содержащее соответственно 4*4 и 3*4 вещественных компонентов. ввести оба массива,найти в каждом массиве сумму компонентов, не принадлежащих интервалы [-5,5] и определить , какая из найденных сумм меньше.найденные значения и оба исходных массива вывести на экран
ПОЖАЛУЙСТА ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ)

[Abstraction]

Код вывода первого массива можете написать?

[Фрейтор 40-500]

Сообщение от Abstraction

Код вывода первого массива можете написать?

нет не могу написать.Оба массива вводятся произвольно,можно с генератором случайных чисел. помогите составить эту программу

[Abstraction]

помогите составить эту программу

Какой именно помощи Вы ожидаете, в таком случае?

[Фрейтор 40-500]

Сообщение от Abstraction

Какой именно помощи Вы ожидаете, в таком случае?

код вывода первого массива нашел , час отправлю)

[Фрейтор 40-500]

Сообщение от Фрейтор 40-500

код вывода первого массива нашел , час отправлю)

program prakt;
type mas=array[1..4,1..4] of integer;
var A,B:mas;
i,j:integer;
s1,s2:integer;
procedure MasInput<m,n:byte;var c:Mas>;
begin
writeln <'ввод массива'>;
for i:=1 to m do begin
for j:= to n do begin
read <c[i,j]>;
end;end;end;
procedure MasOut<m,n:byte;c:Mas>;
begin
writeln<'вывод массива'>;
for i:=1 to m do begin
for j:1 to n do begin
write <c[i,j]:4>;
end;writeln;end;end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Фрейтор 40-500]

Сообщение от Abstraction

Какой именно помощи Вы ожидаете, в таком случае?

program prakt;
type mas=array[1..4,1..4] of integer;
var A,B:mas;
i,j:integer;
s1,s2:integer;
procedure MasInput<m,n:byte;var c:Mas>;
begin
writeln <'ввод массива'>;
for i:=1 to m do begin
for j:= to n do begin
read <c[i,j]>;
end;end;end;
procedure MasOut<m,n:byte;c:Mas>;
begin
writeln<'вывод массива'>;
for i:=1 to m do begin
for j:1 to n do begin
write <c[i,j]:4>;
end;writeln;end;end;