решите, пожалуйста, задачки: двумерные массивы. Паскаль

[Defa4ka]

1. В массиве 5х5 чисел. Найти номера столбцов,в которых есть положительные элементы.
2. В массиве n x n целых чисел найти:
- для каждой сроки максимальный элемент;
- среди элементов, стоящих ниже главной диагонали, положительные; вывести их номера;
- номера строк, у которых элементы главной диагонали равны 0.
P.s. И если можно обьясните немножко по ходу. Спасибо!

[bobby2008]

А сами пытались что-то сделать? Как вводится массив, вручную или рандомно?

[__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] := 2-random(50);
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]:4);
		writeln;
	end;
end;

procedure find_positive(X:matrix);
var
	i,j:integer;
begin
	for i:=1 to n do
		for j:=1 to n do
			if (X[j,i] > 0) then begin
				writeln('Positive element in column ',i);
				break;
			end;
end;

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

2-random(50); - потому что так меньше вероятность попадания в каждый столбец положительного эл-та и легче проверить правильность работы программы..
Все остальные проги буду дописывать как процедуры, ибо fill_matrix и out_matrix останутся.. это такой шаблон...

[__STDC__]

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

- для каждой сроки максимальный элемент;

procedure find_max(X:matrix);
var
	i,j,max:integer;
begin
	for i:=1 to n do begin
		max := X[i,1];
		for j:=2 to n do
			if (X[i,j] > max) then max := X[i,j];
		writeln('Max in ',i,' row is ',max);
	end;		
end;

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

- среди элементов, стоящих ниже главной диагонали, положительные; вывести их номера;

procedure find_positive_under_diag(X:matrix);
var
	i,j:integer;
begin
	for i:=2 to n do
		for j:=1 to i-1 do
			if (X[i,j] > 0) then 
				writeln('Positive element: ',X[i,j],' (',i,',',j,')');

end;

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

- номера строк, у которых элементы главной диагонали равны 0.

procedure find_zero_on_diag(X:matrix);
var
	i:integer;
begin
	for i:=1 to n do
		if (X[i,i] = 0) then 
			writeln('Element in ',i,' row placed on main diagonal is zero');
end;

[Defa4ka]

значит fill и out останусься? А что это за процедуры? Объясни пожалуйста что там и до чего.. Потому что для меня это просто завал.. а завтра нужно будет показать что решила и как поняла. А я почтиии 'поняла'.. Мда.. Вот такие дела

спасибо большое!

[__STDC__]

какие процедуры?) fill_ и out_? заполнение и вывод матрицы..

[Defa4ka]

0: в м0сс8в5 5E5 ч8с5л. Н0йт8 ном5р0 столбFов,в которыE 5стL поло68т5лLны5 Mл5м5нты. .?.))

а: в массиве 5х5 чисел. Найти номера столбцов,в которых есть положительные элементы. .?.))

[__STDC__]

самый первый кусок кода, процедура find_positive

[Defa4ka]

ой, че эт было? В массиве 5х5 чисел. Найти номера столбцов,в которых есть положительные элементы.

[__STDC__]

См. пост выше.