Матрица а(4,4) В строке с отрицательным элементом на главной диагонали найти сумму всех элементов

[Андрей23]

Дана матрица a(4,4). В строке с отрицательным элементом на главной диагонали найти сумму всех элементов. Вывести на экран номера строк и суммы. Из положительных элементов матрицы сформировать одномерный массив и вывести его на экран.
ПОМОГИТЕ ПОЖАЛУЙСТА, ОЧЕНЬ ПРОШУ.
матрицу вводим с клавы.

[Baburek]

Поможем чем можем. Заполнение матрицы покажете? Заодно и язык узнаем

[Андрей23]

В турбо Паскаль
-1.1 1.2 1.3 1.4
1 2 3 4
a= 2.4 3.4 -2.5 5.6
6 4 5 -8

[Baburek]

Сообщение от Андрей23

В турбо Паскаль
-1.1 1.2 1.3 1.4
1 2 3 4
a= 2.4 3.4 -2.5 5.6
6 4 5 -8

Как это в коде у вас выглядит?

[Mad_Cat]

const Nmax=4;
type TMatrix=array[1..Nmax,1..Nmax] of real;
var A:TMatrix;
i,j:integer;s:real;
begin
randomize;
For i:=1 to Nmax do
begin
for j:=1 to Nmax do
begin
A[i,j]:=random(20)-10;
write(a[i,j]:4:0);
end;
writeln;
end;
i:=1;
while (i<=Nmax) do
begin
if a[i,i]<0 then begin
s:=0;
for j:=1 to Nmax do
s:=s+a[i,j];
writeln('CyMMa ',i,'-u CTpoku=',s:6:0);
end;
inc(i);
end;
end.

9 -10 3 2
6 -4 -9 -1
-9 -7 -8 0
-3 -8 -9 6
CyMMa 2-u CTpoku= -8
CyMMa 3-u CTpoku= -24

[Baburek]

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

...
i:=1;
while (i<=Nmax) do
begin
if a[i,i]<0 then begin
s:=0;
for j:=1 to Nmax do
s:=s+a[i,j];
writeln('CyMMa ',i,'-u CTpoku=',s:6:0);
end;
inc(i);
end;
...

Разрешите полюбопытствовать, почему while? for не "зацепит"?

for i:=1 to Nmax do
begin
if a[i,i]<0 then begin
s:=0;
for j:=1 to Nmax do s:=s+a[i,j];
writeln('CyMMa ',i,'-u CTpoku=',s:6:0);
end;
end;

[Mad_Cat]

почему while? for не "зацепит"?

потому что

монопенисуально(с)

[Baburek]

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

потому что

Accepted :-)