Обработка двухмерных массивов.

@DEN_135 Денисов · Регистрация: 21.11.2009

Студворк — интернет-сервис помощи студентам

Еще раз добрый вечер))!!! Помогите плиз с двумя задачками:
1) Дана действительная квадратная матрица порядка N. Найти произведение элементов, расположенных ниже побочной диагонали.

2) В данной действительной квадратной матрице порядка N*N: найти минимальный элемент на главной диагонали.

Заранее спасибо)))..

@yanyk1n · 21.11.2009, 21:30

№2

Pascal

uses crt;
const n=5;
var m:array[1..N,1..N]of integer;
i,j,min:integer;
 
begin
 clrscr;
 writeln('Исходная матрица');
 for i:=1 to n do
 begin
  for j:=1 to n do 
  begin
   m[i,j]:=random(100);
   write(m[i,j]:3);
  end;
  writeln;
 end;
 
 min:=m[1,1];
 for i:=1 to 7 do if m[i,i]<min then min:=m[i,i];
 writeln('Максимальный элемент в главной диагонали равен ',min);
 
 readln;
end.

@DEN_135 Денисов · 21.11.2009, 21:33 **[ТС]**

Большое спасибо k1ry4 )))....

@yanyk1n · 21.11.2009, 21:33

№1

Pascal

uses crt;
const n=5;
var m:array[1..N,1..N]of integer;
i,j:integer;
s:longint;
 
begin
 randomize;
 s:=1;
 clrscr;
 writeln('Исходная матрица');
 for i:=1 to n do
 begin
  for j:=1 to n do 
  begin
   m[i,j]:=random(20)+1;
   write(m[i,j]:3);
  end;
  writeln;
 end;
 
 for i:=1 to 7 do for j:=1 to n-i+1 do s:=s*m[i,j]; 
 writeln('Произведение = ',s);
 readln;
end.

@DEN_135 Денисов · 21.11.2009, 21:35 **[ТС]**

Благодарствую k1ry4

)))...

@DEN_135 Денисов 1 / 1 / 0 Регистрация: 21.11.2009 Сообщений: 12
		1
	Обработка двухмерных массивов. 21.11.2009, 21:28. Показов 548. Ответов 4 Метки нет (Все метки) Еще раз добрый вечер))!!! Помогите плиз с двумя задачками: 1) Дана действительная квадратная матрица порядка N. Найти произведение элементов, расположенных ниже побочной диагонали. 2) В данной действительной квадратной матрице порядка N*N: найти минимальный элемент на главной диагонали. Заранее спасибо))).. 0

@DEN_135 Денисов 1 / 1 / 0 Регистрация: 21.11.2009 Сообщений: 12
	21.11.2009, 21:33 [ТС]	3
	Большое спасибо k1ry4 ))).... 0

@DEN_135 Денисов 1 / 1 / 0 Регистрация: 21.11.2009 Сообщений: 12
	21.11.2009, 21:35 [ТС]	5
	Благодарствую k1ry4 )))... 0

Опции темы