Для произвольной матрицы А(N,M) сформировать одномерный массив В

Пожалуйста кто в этом шарит помогите

Заранее большое спасибо

1). Для произвольной матрицы А(N,M) сформировать одномерный массив В, каждый элемент которого с номером К равен произведению суммы элементов k-й строки и произведению элементов k-го столбца. Если каждый элемент получится нулевым, то вывести на экран сумму по строке и произведение по столбцу.

Gold_Dreamer · 12.02.2005, 17:31

Код:

uses
  Crt;

const
  N = 5;
  M = 5;

var
  Arr1: array[0..N, 0..M] of Integer;
  Arr2: array[0..N] of Integer;
  i,j,Value: Integer;
  Result, Result2: Integer;
  Trun: boolean;

begin
  ClrScr;
  Result:=0;
  Result2:=1;
  Writeln('Enter arrays N: ');
  for i:=0 to N do
    for j:=0 to M do begin
    Read(Value);
    Arr1[i,j]:=Value;
  end;
  for i:=0 to N do 
    Arr2[i]:=Arr1[i]+Arr2[i];
  for i:=0 to N do
    if Arr2[i] <>  0 then begin
    Trun:=true;
    Break;
  end;
  if Trun = false then
  for i:=0 to N do
    Result:=Result + Arr1[i, 0];
  for j:=0 to M do
    Result2:=Result2 * Arr1[0, j];
 end.

Gold_Dreamer · 12.02.2005, 17:31

Код:

uses
  Crt;

const
  N = 5;
  M = 5;

var
  Arr1: array[0..N, 0..M] of Integer;
  Arr2: array[0..N] of Integer;
  i,j,Value: Integer;
  Result, Result2: Integer;
  Trun: boolean;

begin
  ClrScr;
  Result:=0;
  Result2:=1;
  Writeln('Enter arrays N: ');
  for i:=0 to N do
    for j:=0 to M do begin
    Read(Value);
    Arr1[i,j]:=Value;
  end;
  for i:=0 to N do 
    Arr2[i]:=Arr1[i]+Arr2[i];
  for i:=0 to N do
    if Arr2[i] <>  0 then begin
    Trun:=true;
    Break;
  end;
  if Trun = false then
  for i:=0 to N do
    Result:=Result + Arr1[i, 0];
  for j:=0 to M do
    Result2:=Result2 * Arr1[0, j];
 end.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Одномерный массив	fragman	Delphi	2	23.12.2011 12:17
Одномерный массив	Nat123	Вопросы начинающих программистов	1	11.12.2011 00:48
ОДНОМЕРНЫЙ МАССИВ	Стася	Pascal	2	09.05.2011 13:47
Одномерный массив	strannik23	Pascal	0	12.04.2011 22:40
Одномерный массив	daemon92	Pascal	3	04.03.2011 20:51
Одномерный массив	zzzarazzza	Pascal	2	01.02.2011 11:33
Одномерный массив	Evastes	Delphi	1	24.09.2010 11:29
Одномерный массив	n-andriy	Pascal	5	21.06.2010 21:45
Функция перемножающая 2 матрицы произвольной размерности на С++	Trentemoller	Вопросы начинающих программистов	8	27.12.2007 01:33
Одномерный массив	strertkjh	Pascal	6	10.05.2007 01:41
Одномерный массив	Bokser	Pascal	7	17.04.2007 14:25
Как создать одномерный массив	nec	Вопросы начинающих программистов	3	07.12.2004 09:53

Ads