Получить новый одномерный массив В,каждый элемент которого равен мин элементу строк исходной матрицы

[Artimbulidor]

приветствую всех участников форума ....помогите пожалйста с прогой ..
постановка задачи:
Дана w(n,n).
Получить новый одномерный массив В,каждый элемент которого равен минимальному элементу каждой строки исходной матрици.Получить результат при n=5.

[Artimbulidor]

начало сделал ..но ни как не получается организовать цыкл чтобы из каждой строки выбираль минимальное ...(( поставьте на путь истиный ...заранее спасибо

program;
var w:array[1..5,1..5] of integer;
b:array[1..5,1..5] of integer;
i,j,min:=integer;
x:=text;
begin
assign(x,'.......');
reset(x);
for i:=1 to 5 do begin
for j:=1 o 5 do begin
read(x,w[i.j]);writeln;end;

[alex_fcsm]

const n=5;
var i,j:integer;
    a:array[1..n,1..n] of integer;
    b:array[1..n] of integer;
    
begin
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(8);
     write(a[i,j]:2);
    end;
    writeln;
  end;

writeln;
for i:=1 to n do
 begin
 b[i]:=a[i,1];
  for j:=2 to n do
   if a[i,j]<b[i] then b[i]:=a[i,j];
  write(b[i]:2);
 end;
end.

[Artimbulidor]

ЧТо и еэто все цикл из кайждой строки будет минимальное выбирать ???извените а что означает стока a[i,j]:=random(8)??;...я такого не использовал еще не разу ??

[alex_fcsm]

Сообщение от Artimbulidor

read(x,w[i,j])[/CODE]

Вы считываете из файла а я a[i,j]:=random(8) - случайное число(0 до 7).
Подробнее почитайте randomize,random в хелпе

[Artimbulidor]

помогите кто нито сделать работу ..с чтением из файла??пожалуйста....
Начало я начал а во оргонизовать цыкл дальше что-то не получается ...заранее презнателен

[alex_fcsm]

uses crt;
const n=5;
var i,j:integer;
    a:array[1..n,1..n] of integer;
    b:array[1..n] of integer;
    f:text;
begin
clrscr;
assign(f,'c:\1.txt');
reset(f);
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     read(f,a[i,j]);
     write(a[i,j]:2);
    end;
    writeln;
  end;
writeln;
for i:=1 to n do
 begin
 b[i]:=a[i,1];
  for j:=2 to n do
   if a[i,j]<b[i] then b[i]:=a[i,j];
  write(b[i]:2);
 end;
 close(f);
end.