Матрица (3*5)

[Ehha1234]

Вообще не разбираюсь в матрицах, если кто может помогите: Дана матрица K(3×5), содержащая положительные, отрицательные числа и нули. Вычислить сумму модулей отрицательных и произведение положи-тельных элементов матрицы, а также количество нулей.

[ROMA2PVT]

ну хоть для приличия покажите как матрицу заполнять.

[ArtJuhn]

Держи:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var 
    Mas: array[1..3,1..5] of integer;
    i, j, N, Count, sum, proizv:integer;

begin
  Count:=0;
  Sum:=0;
  proizv:=1;

  for i:=1 to 3 do
    for j:=1 to 5 do
      begin
        Write('Enter element[',i,'][',j,'] > ');
        ReadLn(Mas[i][j]);
        if Mas[i][j] = 0 then
          inc(count);
        if Mas[i][j] > 0 then
          proizv:=proizv*Mas[i][j];
        if Mas[i][j] < 0 then
          Sum:=Sum + Abs(Mas[i][j]);
      end;

  WriteLn('-------------------------');
  for i:=1 to 3 do
    begin
      for j:=1 to 5 do
        begin
          Write(Mas[i][j]:4,' ');
        end;
      WriteLn;
    end;
  WriteLn('-----------------------');

  WriteLn('Count of zeros = ',count);
  WriteLn('Sum of element modules, which are less then zero = ',Sum);
  WriteLn('Multiplication of elements which are more then zero = ',proizv);
  ReadLn;
end.

[ROMA2PVT]

Uses
   CRT;
Const
  n=3;
  m=5;
Var
mas:array[1..n,1..m] of integer;
abs_sumotr,proizv_pol,kol_nul,i,j:longint;
begin
clrscr;
abs_sumotr:=0;
proizv_pol:=1;
kol_nul:=0;
randomize;
write('Исходный массив: ');
writeln;
for i:=1 to n do
begin
for j:=1 to m do
begin
mas[i,j]:=random(5)-2;
write(MAS[i,j]:2,' ');

if mas[i,j]<0 then
abs_sumotr:=abs_sumotr+abs(mas[i,j]);
if mas[i,j]>0 then
proizv_pol:=proizv_pol*mas[i,j];
if mas[i,j]=0 then
inc(kol_nul);

end;
writeln;
end;
writeln;
writeln('сумму модулей отрицательных:=',abs_sumotr,'; произведение положительных:=',proizv_pol,'; количество нулей:=',kol_nul);
readkey;
end.

гораздо проще всё в одном цикле сделать.

[ArtJuhn]

Можно, просто не знал как в одном цикле матрицу вывести в виде квадрата

[ROMA2PVT]

И кстати.Не имейте привычки выкладывать код когда выше такое сообщение.

ну хоть для приличия покажите как матрицу заполнять.

Ато автор поленился заполнить матрицу(хотябы) и смылся услышав это зловещее слово МАТРИЦА.

[ArtJuhn]

Бывает
Учту, я на этом форуме второй день, только начинаю познавать программирование, думаю практика порешать задачки будет для меня полезна

[ROMA2PVT]

<<offtop>>
Для вас то полезна.А автору медвежья услуга.

[Ehha1234]

БЛАГОДАРЮ ОТ ДУШИ)))