Составьте программу заполнения массива 10х10 значениями случайных целых чисел из диапазона от 1 до 10. вычислите в) максимальный элемент главной диагонали д) разницу максимальной и минимальным элементами массива
ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Числа\";
ПЕР массив: РЯД 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] КОН КОН КОН КОН; разн := макс - мин
ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Числа\";
ПЕР
массив: РЯД 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] КОН
КОН
КОН
КОН;
разн := макс - мин
КОН Задание.