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

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

4 комментария:

И все судорожно побежали ставить себе на компьютеры пиратские "семерки"...

Окно аль консоль?

Консоль

Если консоль, надо было на Free Pascal просить. Потом только добавить строку с директивой {$APPTYPE CONSOLE}

Ответы

Гость

1)

{$APPTYPE CONSOLE}
Var
   U:array[1..10000] of integer;
   h,k:integer;
Begin
Randomize;
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;
Begin
Randomize;
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;
ReadLn
End.