Подсчитать количество отрицательных элементов каждого столбца таблиц

[MihalNik]

В первых примерах у Вас же readln (если что read не переводит на след. строку).

[spani]

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

В первых примерах у Вас же readln (если что read не переводит на след. строку).

Ошибся, а что скажите по поводу сообщения выше?))

[spani]

Помогите пожалуйста переделать эту программу (добавить подпрограмму).

program igor;
uses crt;
var A: array [1..4, 1..5] of real;
B: array [1..4,1..5] of real;
MassivA,MassivB,i,j:integer;
begin

randomize;
clrscr;
MassivA:=0;
for i:=1 to 4 do
for j:=1 to 5 do
begin
A[i,j]:=-100+random(201);
if A[i,j]<0 then MassivA:=MassivA+1;
end;
writeln ('MassivA=', MassivA);
MassivB:=0;
for i:=1 to 4 do
for j:=1 to 5 do
begin
B[i,j]:=-100+random(201);
if B[i,j]<0 then MassivB:=MassivB+1;
end;
writeln ('MassivB=',MassivB);
readln;
end.