Паскаль.Двухмерный массив. Найти наибольший элемент в матрице

@Nikaaa · Регистрация: 23.10.2012

Author24 — интернет-сервис помощи студентам

Найти наибольший элемент в матрице, напишите программу, буду очень благодарна.

@Paster Fob · 05.02.2013, 22:35

Pascal

const
  size=10;
 
type
  tmatrix=array [1..size,1..size] of shortint;
 
procedure creatematrix(var arg:tmatrix);
var
  i,j:byte;
begin
  for i:=1 to size do begin
    for j:=1 to size do begin
      arg[i,j]:=random(100)-50;
      write(arg[i,j]:5);
    end;
    writeln;
  end;
  writeln
end;
 
function findmax(var arg:tmatrix):shortint;
var
  max:shortint;
  i,j:byte;
begin
  max:=arg[1,1];
  for i:=1 to size do
    for j:=1 to size do
      if arg[i,j]>max then
        max:=arg[i,j];
  findmax:=max;
end;
 
var
  a:tmatrix;
 
begin
  randomize;
  creatematrix(a);
  write('максимальный элемент в матрице = ');
  writeln(findmax(a));
  readln
end.

@Nikaaa 0 / 0 / 0 Регистрация: 23.10.2012 Сообщений: 16
		1
	Паскаль.Двухмерный массив. Найти наибольший элемент в матрице 05.02.2013, 20:35. Показов 975. Ответов 1 Метки нет (Все метки) Найти наибольший элемент в матрице, напишите программу, буду очень благодарна. 0

	05.02.2013, 22:35

Паскаль.Двухмерный массив. Найти наибольший элемент в матрице

Решение