Задание1: В массиве из 100 случайных целых чисел найти максимальный элемент и количество вхождений этого элемента в массив. Задание2: Реализоватьпростые операции с матрицами: транспонирование, умножение на число, сложение и перемножение двух матриц. Значения матриц задавать случайным образом, выбор операции предоставлять пользователю.
1 Задание. var a:array[1..100] of integer; i,max,kol:integer; begin randomize; max:=0; for i:=1 to 100 do a:=random(101); for i:=1 to 100 do if a>max then max:=a; for i:=1 to 100 do if a:=max then kol:=kol+1; write(max,kol); end.
