матрицы..

[Катya]

Блок-схему,пожааалуйстааа!

[Катya]

Блок-схему,пожааалуйста!)

[ByAlex]

Сообщение от Катya

Блок-схему,пожааалуйста!)

Вот! Немного подкорректируй, когда будешь переписывать. Если что, задавай вопросы!

[Катya]

спасибо большое)))

[Катya]

Слушай,последнияя просьба,можешь мне программу кинуть,но чтоб там русского текста не было.
P.S.Даже если его можно удалить,то я боюсь,что удалю что-нибудь не то случайно и вообще не заработает(((

[ByAlex]

Сообщение от Катya

Слушай,последнияя просьба,можешь мне программу кинуть,но чтоб там русского текста не было.
P.S.Даже если его можно удалить,то я боюсь,что удалю что-нибудь не то случайно и вообще не заработает(((

Вот -

program ProjectWorkWithMatrix;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  Arr:array of array of integer;
  Sum,RazN,RazM,i,j,n:integer;
  procedure MatrixOut;
  begin
    writeln;
    writeln('Result massive = ');
    for i:=0 to RazN-1 do
    begin
      for j:=0 to RazM-1 do
        write(Arr[i,j],' ');
      writeln;
    end;
  end;
begin
  Arr:=nil;
  RazN:=5;
  RazM:=5;
  Sum:=0;
  n:=0;
  SetLength(Arr,RazN,RazM);

  writeln('Input the matrix [',RazN,',',RazM,']:');
  for i:=0 to RazN-1 do
    for j:=0 to RazM-1 do
      read(Arr[i,j]);

  MatrixOut;
  writeln;

  write('Elementi diagonali = ');
  for i:=0 to RazN-1 do
  begin
    write(Arr[i,i],'; ');
    Sum:=Sum+Arr[i,i];
    if Arr[i,i]>=0 then
      inc(n);
  end;
  writeln('Sum = ',Sum, ' Chislo pologitelnih = ',n);

  RazN:=6;
  SetLength(Arr,RazN,RazM);
  write('Input the elements of 6 string = ');
  for j := 0 to RazM-1 do
    read(Arr[RazN-1,j]);

  MatrixOut;
  writeln;

  write('Input i = ');
  read(i);
  write('Input j = ');
  read(j);
  write('Element = ',Arr[i-1,j-1]);
  Arr:=nil;
  readln;
  readln;
end.

[Катya]

ОГРОМНОЕ СПАСИБО!!!!)))