Задание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[i]:=random(101);

for i:=1 to 100 do

if a[i]>max then max:=a[i];

for i:=1 to 100 do

if a[i]:=max then kol:=kol+1;

write(max,kol);

end.