Матрицы и так далее

[BBorr1]

Дана вещественная матрица размерности m * n. Определить индексы первого нулевого элемента матрицы. Обход матрицы осуществлять по столбцам.


помогите решить)

[BBorr1]

PASCAL !!!!!

[VIK_aka_TOR]

const
m = 5;
n = 9;
var
i,j:integer;
a: array [1..n,1..m] of real;
flag: boolean;
begin
  // заполнение масива числами
  for i:=1 to n do
  for j:=1 to m do
    a[i,j] := random(10);
    // вывод на экран масива
  for i:=1 to n do
  begin
    for j:=1 to m do
    write(a[i,j]:4);
    writeln;
  end;
  // поиск нулевого
  flag:= false;
  for j:=1 to m do
  begin
  for i:=1 to n do
  if a[i,j] = 0 then
    begin
      flag:= true;
      writeln('i = ', i,' j = ', j);
      break;
    end;
  if flag then break;  
  end;  
end.

ввод вещественных сам осуществишь... написал рандомом натуральных...

[rUs_LAN]

тут много денег

[BBorr1]

не по теме

Program zadacha1;
uses crt;
const
n=5;
var
Arr:array[1..n,1..n] of Integer;
Sum,Proiz,i,j:Integer;
function SchetSum:Integer;
var
t:Integer;
begin
Sum:=0;
t:=n;
for i:=2 to n do
begin
for j:=t to n do
Sum:=Sum+Arr[i,j];
Dec(t);
end;
end;
function SchetProiz:Integer;
begin
Proiz:=1;
for i:=1 to n-1 do
for j:=i to n-1 do
Proiz:=Proiz*Arr[i,j+1];
end;
function transponirovanie:Integer;
var
t:Integer;
begin
for i:=1 to n do
for j:=i to n do
begin
t:=Arr[i,j];
Arr[i,j]:=Arr[j,i];
Arr[j,i]:=t;
end;
end;
begin
writeln('Vvedite elementi matrici[',n,',',n,']:');
for i:=1 to n do
for j:=1 to n do
read(Arr[i,j]);
SchetSum;
writeln('Summa = ',sum);
SchetProiz;
writeln('Proizvedenie = ',proiz);
transponirovanie;
writeln('Transponirovanie ');
for i:=1 to n do
begin
for j:=1 to n do
write(Arr[i,j],' ');
writeln;
end;
readln;
Readln;
end.

не моглибы сделать блоксхему, если есть программа) заранее спасибо

[rUs_LAN]

возможно вам пригодится это