матрица

[Катya]

в матрице В(6х6) найти отрицательные элементы,их порядковые номера,количество и сумму

помогите,пожалуйста((пыталась самостоятельно-не вышло((

[Maksimall89]

Покажите, хоть свои попытки.

[Катya]

Это поможет как то?

[Maksimall89]

Это поможет как то?

Да, я покажу вам ваши ошибки.

[Maksimall89]

У меня это реализовано так, а у вас как?

uses crt;
const
     n = 6;
var
   arr: array [1..n,1..n] of integer;
   i,j,sum, kol : integer;
begin
clrscr;
{обнуляем}
sum := 0;
kol := 0;
{создаем массив}
writeln('Исходный массив:');
for i:=1 to n do
    begin
         for j:=1 to n do
             begin
                  arr[i,j]:=10-random(15);
                  write(' ',arr[i,j]:2);
             end;
         writeln;
    end;
writeln;
{ищем}
write('Порядковые номера элементов меньше нуля:');
for i:=1 to n do
    for j:=1 to n do
        if arr[i,j]<0 then
           begin
                sum := sum + arr[i,j];
                inc(kol);
                write(' ',i,',',j);
           end;
writeln;
writeln('Количество элементов меньше нуля = ',kol);
writeln('Сумма элементов меньше нуля = ',sum);
readkey;
end.

[Maksimall89]

У меня это реализовано так, а у вас как?

uses crt;
const
     n = 6;
var
   arr: array [1..n,1..n] of integer;
   i,j,sum, kol : integer;
begin
clrscr;
{обнуляем}
sum := 0;
kol := 0;
{создаем массив}
writeln('Исходный массив:');
for i:=1 to n do
    begin
         for j:=1 to n do
             begin
                  arr[i,j]:=10-random(15);
                  write(' ',arr[i,j]:2);
             end;
         writeln;
    end;
writeln;
{ищем}
write('Порядковые номера элементов меньше нуля:');
for i:=1 to n do
    for j:=1 to n do
        if arr[i,j]<0 then
           begin
                sum := sum + arr[i,j];
                inc(kol);
                write(' ',i,',',j);
           end;
writeln;
writeln('Количество элементов меньше нуля = ',kol);
writeln('Сумма элементов меньше нуля = ',sum);
readkey;
end.