Паскаль
Среда: Delphi 7
1. Найти и напечатать индексы элементов одномерного массива U размерности h, значения которых равны ключу поиска k.

2. Напечатать максимальные значения элементов строк матрицы В размерности m×n и их индексы.

Жаль ... интрига пропала))))

А от B:array[1..10000,1..10000] of integer; Дельфи не навернется?

Так сначала проверил, потом выложил.

Ну т.е. пара сотен мегабайт на массив - это как слону пучок редиски. Хорошо.

391 696 КБ. А ведь при запуске все 316 КБ было...

1){$APPTYPE CONSOLE}Var   U:array[1..10000] of integer;   h,k:integer;BeginRandomize;Write('h = ');ReadLn(h);Write('Исходный массив:');For h:= 1 to h do    Begin    U[h]:=random(2*h+1)-h;    Write(' ',U[h])    End;WriteLn;Write('k = ');ReadLn(k);For h:= 1 to h do    if U[h] = k then Write(h,' ');ReadLn;End.2){$APPTYPE CONSOLE}Var   B:array[1..10000,1..10000] of integer;   m,n,j,Max:integer;BeginRandomize;Write('m = ');ReadLn(m);Write('n = ');ReadLn(n);For m:= 1 to m do    Begin    Max:=1;    For j:= 1 to n do        Begin        B[m,j]:=random(21)-10;        Write(B[m,j]:4);        if B[m,j] > B[m,Max] then Max:=j;        End;    WriteLn(', Max = ',B[m,Max],'[',m,',',Max,']');    End;ReadLnEnd.