Можете помочь плз, до завтра надо!

[shelovek]

Дана, действительная квадратная матрица порядка 10. В строках с отрицательным элементом на главной диагонали найти:
a) Сумму всех элементов;
b) Наибольший из всех элементов.
Спасибо за ранее. С Уважением не опытный нови чек!

[CodeExpert]

Ну а наработки то есть ?

[shelovek]

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

Дана, действительная квадратная матрица порядка 10. В строках с отрицательным элементом на главной диагонали найти:
a) Сумму всех элементов;
b) Наибольший из всех элементов.
Спасибо за ранее. С Уважением не опытный нови чек!

сорри что не дописал на Паскале

[shelovek]

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

Ну а наработки то есть ?

есть но она вообще не правильная:
uses
crt;
const
lim=10;
type mas=array[1..lim,1..lim] of real;
var
a:mas;
n,k:integer;
s:real;
i,j:integer;

function zade:real;
begin
s:=0;
for k:=1 to n do
begin
for i:= 1 to n do
if a[i,i] < 0 then
begin
s:=s+a[i,i]+a[i,k];
end;

end;
zade:=s;
end;
begin
write('n');
readln(n);
write('Введите матрицу A');
begin
for i:= 1 to n do
for j:= 1 to n do
read(a[i,j]);
end;
zade;
write('summa ravna:',zade,' ');
readln
end.

[shelovek]

если вам не трудно то помогите люди, как говориться "помогай форумчанену"=)

[IT-man]

Стучи! Помогу за вознаграждение!

[shelovek]

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

сорри что не дописал на Паскале

или смотрите выше описание!!!
uses
crt;
const
n=10;
var
a:array[1..n,1..n] of real;
i,j:byte;
{********************************** *********************************** *********}
procedure zap;{zapolenie kvadratnoy matrici}
begin
for i:= 1 to n do
for j:= 1 to n do
a[i,j]:=random*(-8)+5;
end;
{********************************** *********************************** *********}
procedure print;
begin
begin
for i:= 1 to n do
begin
for j:= 1 to n do
if i=j then
begin
textcolor(red);
write(a[i,j]:7:3);
end
else
begin
textcolor(green);
write(a[i,j]:7:3)
end;
writeln;
end;
end;
end;
{********************************** *********************************** *********}
procedure proverka;{proveryaet znashenia elemntov glavnoi diag. i-stroki,esli oni <0 togda }
var
max,s:real;
pr:Boolean;
begin
pr:=false;
max:=a[i,1];
textcolor(white);
for i:= 1 to n do
begin
if a[i,i]<0 then {proverka na otricatelnost elemntov glavnoy diagonali}
begin
s:=0;
for j:= 1 to n do
begin
pr:=true;
s:=s+a[i,j]; {vishislenie summi}
if a[i,j]>max then {nahosdenie max elemnta}
max:=a[i,j];
end;
writeln(' summa vseh elemntov ',i,'- stroki ravna: ',s:0:3);
writeln(' maximalnii element ',i,'-stroki ravenn: ',max:0:3);
end;
end;
if not(pr) then
Write (' w galvanoy diagonali net otricatelnih elemntov.');
end;
{******************************begi n osnovnoy programmi*********************}
begin
clrscr;
randomize;
zap;
print;
proverka;
readkey
end.