Обработка двумерного массива

[tema001]

В паскале.
Дана матрица А(4,4).
Найти произведение элементов среди элементов расположенных на главной диагонали матрици А. Найти минимальный элемент в третьей строке матрици. Поменять местами найденный минимальный элемент и значение S.

[IT-man]

Стучи в аську.сделаю.недорого.

[пауэрлифтинг]

главной диагонале две??

[пауэрлифтинг]

icq 136665509

[ai\ekcah^p]

program zad;
uses crt;
type massiv=array[1..4,1..4] of integer;
var
mas:massiv;
pr,min,s,i,j:integer;
procedure poisk_pr(m:massiv);
var
i,j,proiz:integer;
begin
 proiz:=1;
 for i:=1 to 4 do
 begin
  for j:=1 to 4 do
  begin
   if i=j then proiz:=proiz*m[i,j];
  end;
 end;
 writeln('произведение на главной диагонале -> ',proiz);
end;
procedure poisk_min(m:massiv);
var
i,j,min,a,b:integer;
begin
 min:=m[3,1];

 for j:=1 to 4 do
  i:=3;
 begin
  if m[i,j]<=min then
  begin
   min:=m[i,j]; a:=i; b:=j;
  end;
 end;
  writeln('минимальный элемент равен -> ',min);
  write('введите S -> ');readln(s);
  writeln;
 for i:=1 to 4 do
 begin
  for j:=1 to 4 do
  begin
   textcolor(10);
   m[a,b]:=s;
  write(m[i,j]:4);

  end;
  writeln;
 end;
end;

begin
 clrscr;
 randomize;
 for i:=1 to 4 do
 begin
  for j:=1 to 4 do
  begin
   mas[i,j]:=random(11)-5;
   write(mas[i,j]:4);
  end;
  writeln;
 end;
 writeln;
 poisk_pr(mas);
 poisk_min(mas);
 readln;
end.

[Veselyn]

Сообщение от пауэрлифтинг

icq 136665509

Сообщение от IT-man

Стучи в аську.сделаю.недорого.

Для вас есть отдельный раздел - "ФРИЛАНС"

[tema001]

спасибо!!!!!!!!