:в массиве из 100 случайных целых чисел найти максимальный элемент и количество вхождений этого элемента в массив. : реализовать простые операции с матрицами: транспонирование, умножение на число, сложение и перемножение двух матриц. значения матриц задавать случайным образом, выбор операции предоставлять пользователю.
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.