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

[Defa4ka]

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

[Utkin]

Просканируй массив по столбцам.
Сначала придумай как сканировать один массив, а потом, как все 5
Пусть А[5,5]
И тебе нужно куда-то складывать результат Positiv: Array [1..5] of Integer;

for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
     if a[i,j]>0 then
     begin
          
         if Positiv[i]<>1 then Positiv[i]:=1;
     end;
end;
end;

Позитив перед стартом должен быть заполнен нулями. После старта в нем будут располагаться единицы там, где имеются положительные элементы. Собственно массив квадратный и если вдруг там в твоем представлении будет считаться по строкам то исправь Positiv[j]

[__STDC__]

я не понимаю... чем не устраивает моя п/п?

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;

[Defa4ka]

я просто с тела.. по несколько ра7 выдал одно 8 то же сообщен8е..

[Defa4ka]

Сообщение от __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]

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

это и так короткий вид.. просто кажется длинной из-за отступов и переноса строк.. ну можно и короче наверное.. но это как-то.. фу..

0
:-):-):-):-):-))))))

а что вот ты в разделе типов делаешь? И что каждый раз после процедур в вар нужно описывать i,j?

[__STDC__]

в секции type? объявляю новый тип переменной.. matrix.. для удобства, чтобы не писать везде array[1..n,1..n] of integer;
i,j в каждой процедуре локальные переменные.. в принципе можно использовать глобальные.. но это считается не очень хорошим решением..

[Defa4ka]

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

в секции type? объявляю новый тип переменной.. matrix.. для удобства, чтобы не писать везде array[1..n,1..n] of integer;
i,j в каждой процедуре локальные переменные.. в принципе можно использовать глобальные.. но это считается не очень хорошим решением..

Ну и самый конец еще немножко обьясни :-) и все. чес слово :-) по крайней мере до завтра изв.

[__STDC__]

А что в конце?