матрицы..

[Катya]

Дана матрица C(5Х5) положительных и отрицательных элементов
1) Ввести элементы матрицы и вывести матрицу на экран дисплея
2) Вывести на экран дисплея элементы главной диагонали (i=j) определить их сумму и число положительных элементов главной диагонали
3) Включить в матрицу дополнительную строку с заданым номером К(К=6) вывести на экран новую матрицу С1 (6х5)
4) Реализовать поиск элемента по его индексам и вывод его на экран

помогите ,пожалуйста,нужна программа в паскале и блок-схема(!)...
очень нужно(((заранее огромное спасибо!!

[ByAlex]

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

Дана матрица C(5Х5) положительных и отрицательных элементов
1) Ввести элементы матрицы и вывести матрицу на экран дисплея
2) Вывести на экран дисплея элементы главной диагонали (i=j) определить их сумму и число положительных элементов главной диагонали
3) Включить в матрицу дополнительную строку с заданым номером К(К=6) вывести на экран новую матрицу С1 (6х5)
4) Реализовать поиск элемента по его индексам и вывод его на экран

помогите ,пожалуйста,нужна программа в паскале и блок-схема(!)...
очень нужно(((заранее огромное спасибо!!

Это все в одной проге или это будут разные программы?

[Катya]

Одна программа

[ByAlex]

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

Одна программа

Вот -

program Project9;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  Arr:array of array of integer;
  Sum,RazN,RazM,i,j,n:integer;
begin
  Arr:=nil;
  RazN:=5;
  RazM:=5;
  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]);

  // Вывод массива
  writeln('Result massive = ');
  for i:=0 to RazN-1 do
  begin
    for j:=0 to RazM-1 do
      write(Arr[i,j],' ');
    writeln;
  end;
  writeln;

  // Вывод элементов диагонали, поиск их суммы и число положительных
  write('Elementi diagonali = ');
  Sum:=0;
  n:=0; // Число положительных
  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]);
  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;

  // выбор элемента по координатам
  write('Input i = ');
  read(i);
  write('Input j = ');
  read(j);
  writeln;
  write('Element = ',Arr[i-1,j-1]);
  Arr:=nil;
  readln;
  readln;
end.

Если помогло, жми весы!

[Катya]

Еще как помогло))Спасибо)
А с блок-схемой не поможешь?Пожаааалуйста)

[ByAlex]

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

Еще как помогло))Спасибо)
А с блок-схемой не поможешь?Пожаааалуйста)

Уже, думаю, не успею! А когда сдавать нужно?

[Катya]

В следующую среду сдавать.
Напиши,пожалуйста,когда тебе удобней будет,но до среды)

[ByAlex]

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

В следующую среду сдавать.
Напиши,пожалуйста,когда тебе удобней будет,но до среды)

Постараюсь, если не забуду!

[leysan94]

Дана матрица в диапазоне D5:Е7, найти суммы элементов 3 строки 4 столбца.
Результаты вывести соответственно справо от 3 строки и под 4 столбцом.
Visual basic. помогите пож-ста решить

[Катya]

Не надо забывать)))