ПОСМОТРИТЕ, ПОЖАЛУЙСТА, ПРОГРАММЫ НА ЯЗЫКЕ ПАСКАЛЬ!! СРОЧНО!! ЕСТЬ НАРАБОТКИ)

[НАСТЯ 18:)]

1. Поменять местами элементы главной диагонали и первой строки.
2. Создать одномерный массив, элементы которого являются min каждого стоблца двумерного массива.

[НАСТЯ 18:)]

Вот что у меня получилось по второй задаче:
Var
I,j: integer;
M: array[1..5,1..5] of integer;
Min: array[1..5] of integer;
Begin
Writeln (‘ввести элементы массива’);
For i:=1 to 5 do
For j:=1 to 5 do
Read(M[I,j]);
For j:=1 to 5 do
Min[j]:=M[1,j];
For i:=1 to 5 do
For j:=1 to 5 do
If Min[j]>M[I,j] then
Begin
Min[j]:=M[I,j];
For j:=1 to 5 do
Writeln (‘[‘,min[j],’]’);
Readln;
End.
только программа не работает

[НАСТЯ 18:)]

вот мои наработки по первой задаче:
program pr1;
var
i,j: integer;
M: array[1..5,1..5] of integer;
begin
writeln('vvectu ilementu maccuba');
for i:=1 to 5 do
for j:=1 to 5 do
read(M[i,j]);
begin
for i:=1 to 5 do
for j:=1 to 5 do
M[i,i]:=M[1,j];
writeln('maccub',M[i,j]);
end;
readln;
end.

[НАСТЯ 18:)]

Помогите! ... ну хоть кто-нибудь(((

[Chudo4258]

program pr1;
var
i,j,K: integer;
M: array[1..5,1..5] of integer;
begin
writeln('vvectu ilementu maccuba');
for i:=1 to 5 do
for j:=1 to 5 do
read(M[i,j]);
begin
for i:=1 to 5 do
 begin
  K:=M[i,i];
  M[i,i]:=M[1,i];
  M[1,i]:=K; 
 end;
// Вывод массива M[i,j]
end;
readln;
end.

[__STDC__]

const
	n = 5; 
	
type
	matrix = array[1..n,1..n] of integer;

procedure fill_matrix(var X:matrix);	
var 
	i,j:integer;
begin
	randomize;
	for i:=1 to n do
		for j:=1 to n do
			X[i,j] := random(100);
end;

procedure change(var X:matrix);
var
	i,tmp:integer;
begin
	for i:=1 to n do begin
		tmp := X[i,i];
		X[i,i] := X[1,i];
		X[1,i] := tmp;
	end;
end;

procedure out_matrix(X:matrix);
var
	i,j:integer;
begin
	for i:=1 to n do begin
		for j:=1 to n do
			write(X[i,j]:3);
		writeln;
	end;
end;

var
	A:matrix;
begin
	fill_matrix(A);
	out_matrix(A);
	change(A);
	writeln;
	out_matrix(A);
	readln;
end.

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

[НАСТЯ 18:)]

А обязательно константу вводить?

[__STDC__]

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

procedure create_arr(var X:min_arr; Y:matrix);
var
	i,j:integer;
begin
	for i:=1 to n do begin
		X[i] := 100;
		for j:=1 to n do 
			if (Y[j,i] < X[i]) then X[i] := Y[j,i];
		write(X[i]:3);
	end;
end;

естественно X[i] изначально нужно брать по меньшей мере равным максимальному элементу матрицы.. или большим) Или еще лучше делать X[i] := Y[1,i]; (вместо X[i] := 100; ), вот =)

[НАСТЯ 18:)]

Значит 2ая программа имеет вид:
Program pr2;
const
n = 5;
procedure create_arr(var X:min_arr; Y:matrix);
var
i,j:integer;
begin
for i:=1 to n do begin
X[i] := 100;
for j:=1 to n do
if (Y[j,i] < X[i]) then X[i] := Y[j,i];
write(X[i]:3);
end;
end;

type
matrix = array[1..n,1..n] of integer;

procedure fill_matrix(var X:matrix);
var
i,j:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
X[i,j] := random(100);
end;

procedure change(var X:matrix);
var
i,tmp:integer;
begin
for i:=1 to n do begin
tmp := X[i,i];
X[i,i] := X[1,i];
X[1,i] := tmp;
end;
end;

procedure out_matrix(X:matrix);
var
i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to n do
write(X[i,j]:3);
writeln;
end;
end;

var
A:matrix;
begin
fill_matrix(A);
out_matrix(A);
change(A);
writeln;
out_matrix(A);
readln;
end.
????

[__STDC__]

не совсем.. процедуру надо добавить.. ну не знаю.. в конец что ли, после процедуры out_matrix и еще изменить раздел type вот так (забыл в первом посте написать =) ):

type
	matrix = array[1..n,1..n] of integer;
	min_arr = array[1..n] of integer;

и это будет не вторая, а обе вместе =) вообще твои программы это процедуры change и create_arr.. остальное просто так.. для красоты.. это уж как тебе удобнее будет можешь переделывать
Ну и еще конечно надо не забыть вызвать процедуру create_arr