Двумерные массивы

[1Dima]

Допишпите пожалуйста скрипт

Побудувати двовимірний масив з дійсних чисел з п'ятьма рядками і п'ятьма стовбцями.Вивести масив на екран у вигляді таблиці, задати формати виведення чисел з двома числами після крапки.Визначити мінімальний елемент і його індекси.

Uses
SysUtils;

Const n=15; m=5;
Var b:array [1..n,1..m] of real;
i,j:integer;
min: real;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
begin
b[i,j]:=random(15);
writeln ('b[',i,',',j']=',b[i,j]:5:2);
end;
for i:=1 to n do
end.

[VIK_aka_TOR]

примерно так получается....

Const n=5; 
Var b:array [1..n,1..n] of real;
i,j, ind_i, ind_j:integer;
min: real;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
b[i,j]:=random(50);
write('b[',i,',',j,']=',b[i,j]:5:2,'  ');
end;
writeln;
end;
min:=b[1,1];
for i:=1 to n do
for j:=1 to n do
begin
if min>b[i,j] then
begin
min:=b[i,j];
ind_i:=i;
ind_j:=j;
end;
end;
writeln ('Минимальный элемент равен ' ,min,' индекс i=',ind_i,' индекс j=',ind_j);
for i:=1 to n do
end.

++ в репутацию.... если получилось то что нужно)

[1Dima]

дякую))+++++

[1Dima]

вот сделал как надо))) все работает!!!


program minlem;

{$APPTYPE CONSOLE}

uses
SysUtils;

Const n=5; m=5;
Var b:array [1..n,1..m] of real;
i,j,nomer_radka,nomer_stovbca:integ er;
min: real;
begin
randomize;
writeln ('Nash vasuv: ');
writeln;
for i:=1 to n do
for j:=1 to m do
begin
b[i,j]:=random(25);
writeln('b[',i,',',j,']=',b[i,j]:5:0);
end;
min:=b[1,1];
nomer_radka:=1;
nomer_stovbca:=1;
for i:=1 to n do
for j:=1 to m do
if b[i,j]<min then
begin
min:=b[i,j];
nomer_radka:=i;
nomer_stovbca:=j;
end;
writeln;
writeln('Nasha matruza: ');
writeln;
for i:=1 to n do
begin
for j:=1 to m do
write (b[i,j]:5:0);
writeln;
end;
writeln;
writeln ('Minimalnyu element: ' ,min:1:0);
writeln ('Nomer radka =',nomer_radka,', Nomer stovbca=',nomer_stovbca);
readln;
end.