Составьте программу заполнения массива 10х10 значениями случайных целых чисел из...

Question

Составьте программу заполнения массива 10х10 значениями случайных целых чисел из диапазона от 1 до 10. Вычислите в) максимальный элемент главной диагонали д) разницу максимальной и минимальным элементами массива

Answer 1

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Числа\";

ПЕР
  массив: РЯД 10, 10 ИЗ ЦЕЛ;
  сч1, сч2, макс_гл, разн, мин, макс: ЦЕЛ;

УКАЗ
  ОТ сч1 := 0 ДО 9 ВЫП
    ОТ сч2 := 0 ДО 9 ВЫП
      массив[сч1, сч2] := УЗК(ВШИРЦЕЛ(Матем.случ() * 9)) + 1;
      ЕСЛИ сч1 = 0 И сч2 = 0 ТО
        мин := массив[0, 0]; макс := мин; макс_гл := макс
      ИНАЧЕ
        ЕСЛИ массив[сч1, сч2] < мин ТО мин := массив[сч1, сч2]
        АЕСЛИ массив[сч1, сч2] > макс ТО макс := массив[сч1, сч2] КОН;
        ЕСЛИ сч1 = сч2 И массив[сч1, сч2] > макс_гл ТО макс_гл := массив[сч1, сч2] КОН
      КОН
    КОН
  КОН;
  разн := макс - мин

КОН Задание.