это 2
Program
{
static void Main(string[] args)
{
Random rand = new Random();
Console.WriteLine("Введите размерность матрицы MxM :");
int M = Convert.ToInt32(Console.ReadLine());
int[,] matrix = new int[M, M];
for (int j = 0; j < M; j++)
{
for (int m = 0; m < M; m++)
{
matrix[j, m] = rand.Next(-10, 10);
Console.Write(matrix[j, m] + " ");
}
Console.WriteLine();
uses crt;
var
a:array [1..10] of integer;
i,max,k:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(101);
write(a[i],' ');
end;
max:=a[1];
for i:=1 to 10 do
if max<a[i] then
begin
max:=a[i];
k:=i;
end;
writeln(' ',max);
writeln(k);
end.
Первый элемент считается нулевым) хотя проверь все))) может в конце просто K+1 вывести надо) не помню) мне влом)