Система через procedure (PascalABC)

[Mnsh]

Нужно решить систему, желательно через Procedure

Заранее спасибо.

[VIK_aka_TOR]

собственно чему равны значения элементов матрицы А... и какие значения принимают М2, М3,Ь4 и М5... да и с P1, P2 и Р5 такой же вопрос...
наработочки показывает... есл иже нет... то любой каприз за ваши деньги... аська слева... кошелек в подписи под сообщением...

[Mnsh]

Похожая система

program z1v10;
var
A:array [1..5,1..5] of integer;
i,j,max,m5,p5,p6:integer;
s:real;
Begin

for i:=1 to 5 do
begin
For j:=1 to 5 do
begin
writeln ('введите элемент массива № ',i,',',j);
readln (A[i,j]);
end;
end;


j:=1;
for i:=1 to 5 do
begin
if a[i,j]<0 then
p5:=p5+a[i,j]
else
p6:=p6+a[i,j];
j:=j+1;
end;

max:=a[1,1];
m5:=1;
for i:=1 to 5 do
begin
For j:=1 to 5 do
begin
if a[i,j]>max then begin
max:=a[i,j];
m5:=j;
end;
end;
end;


s:=0;
if abs(p5)>=p6 then
begin
for i:=1 to 5 do
s:=s+a[i,i]*power(i,3);
end
else
begin
for i:=1 to 5 do
s:=s+a[i,m5]/p6;
end;

writeln ('ответо: ',s);

end.

[VIK_aka_TOR]

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

[Mnsh]

Я и не писал что код мой. Если бы был код мой то и с написанием программы не было бы.
С условием оплашал. Вот условия:
1 Исходные данные
Дана матрица 5*5
2 Условные обозначения в заданиях:
M1 – количество отрицательных элементов массива;
М2 – количество положительных элементов массива;
М3 – количество ненулевых элементов массива;
М4 – номер строки максимального элемента;
М5 – номер столбца максимального элемента;
М6 – количество диагональных элементов, равных заданному числу C;
М7 – номер строки минимального элемента;
М8 – номер столбца минимального элемента;
М9 – количество элементов находящихся в пределах B≤Aij≤C;
М10 – количество ненулевых элементов, предшествующих первому 0;
Р1 – Сумма положительных элементов;
Р2 – сумма отрицательных элементов;
Р3 – сумма элементов массива находящихся в пределах B≤Aij≤C;
P4 – сумма положительных элементов главной диагонали;
Р5 – сумма отрицательных элементов главной диагонали;
Р6 – сумма элементов главной диагонали;
C – константа.

[VIK_aka_TOR]

ну ладно... С константа... а В???..
коль есть желание.. стучи в асю... распишу все с коментами.. за небольшое вознаграждение...