процедуры

[Ольга123456]

Помогите,пожалуйста,решить

Дана матрица.Количество её элементов <=30.Найти в каждой строке минимальный элемент и поменять его местом с первым в этой строке.

[Grag]

Ты бы хоть задание грамотно сформулировала, прежде чем помощь просить!!!

[Ol'ga_new]

Попробуй так:

var a:array[1..30,1..30] of integer;
i,k,min,n,m,l,p:integer;
begin
writeln('vvedite kol-vo str and st:');
readln(n);
readln(m);
for i:=1 to n do
begin
for k:=1 to m do
begin
a[i][k]:=random(90)+10;
write(a[i][k],'  ')
end;
writeln;
end;
writeln;
for i:=1 to n do
begin
min:=a[i][1];
for k:=1 to m do
if a[i][k]<min then
begin
  min:=a[i][k];
  l:=i; p:=k;
end;
a[l][p]:=a[i][1];
a[i][1]:=min;
end;
for i:=1 to n do
begin
for k:=1 to m do
write(a[i][k], '  ');
writeln;
end;
readln;
end.

[Grag]

Препод с бодуна введет по запросу программы по 35 для N и M, и все...
"Out of range" в программе обеспечено... Фатальная ситуация! Как для программы, так и для того, кто это преподу покажет...
И какой глубокий смысл несет в себе вот эта строка???
a[i][k]:=random(90)+10;

[Ольга123456]

Ol'ga_new,спасибо Вам.Я немного доработала и сдала)

Grag, =))))смешно! надо быть добрее!