Проверьте правильность пожалуйста

[Анжелика]

Program а42;
uses crt;
const n=3; m=4;
var i,p,j,min:integer;
a:array[1..100,1..100] of integer;
begin
clrscr;
randomize;
begin
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(100)-50;
write(a[i,j]:5);
writeln;
end;
begin
for j:=1 to m do
min:=a[1,j];
p:=1;
begin
for i:=1 to n do
if a[i,j]<min then begin
p:=i; min:=a[i,j];
end;
end;
writeln;
begin
for i:=1 to n+1 do
for j:=1 to m do
write(a[i,j]:5);
writeln;
end;
end;
readln;
end.


Вот задание

Найти наименьшее значение в каждом столбце матрицы и записать номера этих строк в дополнительную строку. На Паскале.

[Rusl92]

begin - первая ошиьбка
for j:=1 to m do
min:=a[1,j];
p:=1;
begin - вторая
for i:=1 to n do

Вы все время ставите бегины не в тех местах.....

[Анжелика]

Очень прошу помочь в исправлении задачи

[Анжелика]

Вот по другому, но тоже не получается, я правда не знаю...
Program lek;
uses crt;
const n=3; m=4;
type t=array[1..n+1,1..m] of integer;
var a:t; i,p,j,min:integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100)-50;
write(a[i,j]:5);
end;
writeln;
end;
for j:=1 to m do
begin
min:=1500;
p:=1;
for i:=1 to n do
begin
if a[i,j]<min then begin
p:=i; min:=a[i,j];
end;
a[i+1,j]:=p;
end;
begin
for i:=1 to n+1 do
for j:=1 to m do
write(a[i,j]:5);
end;
writeln;
end;
readln;
end.

[pomoshnic]

А что нужно сделать во втором задании?

[Тупой]

Во-первых, Анжелика, в Вашем коде ЧЕРТ НОГУ СЛОМИТ!
Во вторых, что такое

write(a[i,j]:5);

?

ПС: просто добавил табы в код, чтобы смотрелось нагляднее

Program lek;
uses crt;
	const n=3; m=4;
	type t=array[1..n+1,1..m] of integer;
	var a:t; i,p,j,min:integer;
begin
	clrscr;
	andomize;
	for i:=1 to n do
	begin
		for j:=1 to m do
		begin
			a[i,j]:=random(100)-50;
			write(a[i,j]:5);
		end;	
	writeln;
	end;
	
	for j:=1 to m do
	begin
		min:=1500;
		p:=1;
		for i:=1 to n do
		begin
		if a[i,j]<min then begin
			p:=i; 
			min:=a[i,j];
		end;
		a[i+1,j]:=p;
	end;
	
	begin
	for i:=1 to n+1 do
		for j:=1 to m do
			write(a[i,j]:5);
	end;
	
	writeln;
	end;
	readln;
end.

[Анжелика]

1. Я не программист увы...
2.Это значит пиши массив на расстоянии 5

[Анжелика]

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

А что нужно сделать во втором задании?

Это тоже, я исправила немного, а всё равно не работает

[Sazary]

begin'ы стоят в странных, неположенных местах..))
Вроде работает:

Program lek;
uses crt;
	const n=3; m=4;
	type t=array[1..n+1,1..m] of integer;
	var a:t; i,p,j,min:integer;
begin
	clrscr;
	randomize;
	for i:=1 to n do
	begin
		for j:=1 to m do
		begin
			a[i,j]:=random(100)-50;
			write(a[i,j]:5);
		end;	
	writeln;
	end;
writeln('----------');
	for j:=1 to m do
	begin
		min:=1500;
		p:=1;
		for i:=1 to n do
		begin
		if a[i,j]<min then begin
			p:=i;
			min:=a[i,j];
            end;
		end;
		a[n+1,j]:=p;
	end;

	for i:=1 to n+1 do
      begin
		for j:=1 to m do
			write(a[i,j]:5);
      writeln;
	 end;
	readln;
end.

[Анжелика]

урра спасибо вам огромное!!!!!!!