Наибольшее из значений в заштрихованной части матрицы

@HeRo!N · Регистрация: 01.10.2010

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

Найти наибольшее из значений в заштрихованной части матрицы.
Программа должна быть решена без процедур и функций!

@versa4e · 11.12.2010, 16:42

Pascal

const
  n=7;
var
  a:array[1..n,1..n] of real;
  i,j,maxi,maxj:integer;
begin
  randomize;
  {Ishodnaya matritsa}
  for i:=1 to n do
    for j:=1 to n do
      begin
        a[i,j]:=random(50)+10;
        write(a[i,j]:3:0);
        if j=n then writeln;
      end;
  maxi:=n div 2+1;
  maxj:=maxi;
  {Poisk max}
  for i:=n downto ((n div 2)+1) do
    for j:=(n-i+1) to i do
        if a[i,j]>a[maxi,maxj] then
          begin
            maxi:=i;
            maxj:=j;
          end;
  writeln;
  writeln('Max element-> ',a[maxi,maxj]:3:0);
  readln;
end.

Решение только для нечетного n.

@HeRo!N 11 / 11 / 2 Регистрация: 01.10.2010 Сообщений: 139
		1
	Наибольшее из значений в заштрихованной части матрицы 11.12.2010, 12:19. Показов 974. Ответов 1 Метки нет (Все метки) Найти наибольшее из значений в заштрихованной части матрицы. Программа должна быть решена без процедур и функций! Миниатюры 0

	11.12.2010, 16:42