Найти произведение максимального и минимального элементов диагонали матрицы

@NikSchibeki · Регистрация: 15.10.2013

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

Сформировать массив а[1..8,1..8], элементы которого выбираются случайным образом из интервала [10, 70]. Найти произведение максимального и минимального элементов диагонали матрицы.

Kodzaev · 30.01.2014, 22:07

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

диагонали матрицы

Какой диагонали, главной? Тогда так:

Pascal

const
  n = 8;
 
var
  a: array [1..n, 1..n] of byte;
  i, j, max, min: byte;
 
begin
  max := 0;
  min := 255;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(61) + 10;
      Write(a[i, j]:5);
      if i = j then
      begin
        if a[i, j] > max then
          max := a[i, j];
        if a[i, j] < min then
          min := a[i, j];
      end;
    end;
    Writeln
  end;
  Writeln('На главной диагонали:');
  Writeln('MAX = ', max);
  Writeln('MIN = ', min);
  Writeln('MAX * MIN = ', min * max);
end.

@NikSchibeki 12 / 6 / 6 Регистрация: 15.10.2013 Сообщений: 203
		1
	Найти произведение максимального и минимального элементов диагонали матрицы 30.01.2014, 21:51. Показов 1440. Ответов 1 Метки нет (Все метки) Сформировать массив а[1..8,1..8], элементы которого выбираются случайным образом из интервала [10, 70]. Найти произведение максимального и минимального элементов диагонали матрицы. 0

	30.01.2014, 22:07

Найти произведение максимального и минимального элементов диагонали матрицы

Решение