Программа: Наибольший элемент в двумерном массиве

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

PROGRAM naibelmass;
	var i,k,s :integer;
		M	  :array[1..10,1..10] of integer;
BEGIN
	Randomize;
	s:=0;
	for i:=1 to 10 do
	  begin
		for k:=1 to 10 do
		  begin
			M[i,k]:=random(10);
			Write(M[i,k],' ');
		  end;
		Writeln
	  end; // Забитие и вывод массива
 
	for i:=1 to 10 do
	  begin
		for k:=1 to 10 do
		  begin
			if M[i,k]>s then s:=M[i,k]
		  end;
		end; // Проверка если больше...
	WriteLn('Самый большой элемент массива: ',s);

END.

Просмотрело: 2337

Возможно, Вы искали: