Помогие пожалуйста срочно

[Павел1223]

Нужно написать код для Паскаля:
1) Найти произведение номеров максимального и минимального элементов массива А[20]. Массив заполнить случайными числами из отрезка [-8, 30].
2) Заполнить массив A[10] с клавиатуры. Найти минимальное двузначное число в этом массиве.

[digitalis]

Учитель, зачем вы мне такую сложную задачку задаёте? Лучше что-то вроде 2*2=4.
Это намёк, что, как пелось в древней песне, нужно "задачи решать самому". А то в бо'шке ничего не отложится.
Ну и как можно помочь человеку, который читать не умеет?
https://programmersforum.ru/misc.php?do=showrules п.4.1.
--------
Надеюсь, преподы читают этот форум. И "решившему" таким способом "гусь" обеспечен.

[newerow1989]

var a: array[1..20] of integer;
    i, imin, imax: integer;
begin
   Randomize;
   for i:=1 to 20 do
   begin
      a[i]:=-8+Random(39);
      Write(a[i]:3, '  ');
   end;
   Writeln;
   Writeln;
   imin:=1;
   imax:=1;
   for i:=2 to 20 do
   begin
      if a[imin]>a[i] then
         imin:=i;
      if a[imax]<a[i] then
         imax:=i;
   end;
   Writeln('imin = ', imin);
   Writeln('imax = ', imax);
   i:=imin*imax;
   Writeln('i = ', i);
   Readln;
end.

var a: array[1..10] of integer;
    i, mi: integer;
begin
   for i:=1 to 10 do
   begin
      Write('a[', i, '] = ');
      Readln(a[i]);
   end;
   Writeln;
   Writeln;
   mi:=0;
   for i:=1 to 10 do
      if (a[i]>9) and (a[i]<100) then
      begin
         if mi=0 then
            mi:=a[i] else
         if mi>a[i] then
            mi:=a[i];
      end;
   if mi=0 then
      Writeln('Нет минимального двузначного числа!') else
      Writeln('min = ', mi);
   Readln;
end.

[macomics]

program test;

uses
   SysUtils;

TYPE
   TArray1 = array [1 .. 20] of Integer;
   TArray2 = array [1 .. 10] of Integer;

procedure FillRandom(var A: TArray1; l, h: Integer);
var
   i: Integer;
begin
   Randomize;
   for i := Low(A) to High(A) do
      A[i] := l + Random(h - l);
end;

procedure FillKeybrd(var B: TArray2; h: String);
var
   i: Integer;
begin
   for i := Low(B) to High(B) do begin
      Write(h, '[', i, '] = ');
      ReadLn(B[i]);
   end;
end;

function GetMinMax(A: TArray1): Integer;
var
   i, j, k: Integer;
begin
   j := Low(A);
   k := j;
   for i := j + 1 to High(A) do begin
      if A[j] < A[i] then j := i;
      if A[k] > A[i] then k := i;
   end;
   GetMinMax := j * k;
end;

function GetMin2Digit(B: TArray2): Integer;
var
   i, m: Integer;
begin
   m := Low(B) - 1;
   for i := m + 1 to High(B) do
      if (B[i] > 9) and (B[i] < 100) then
         if (m < Low(B)) or (B[m] > B[i]) then m := i;
   if m >= Low(B) then GetMin2Digit := B[m] else GetMin2Digit := 0;
end;

procedure PrintArray1(A: TArray1; h: String);
var
   i: Integer;
begin
   for i := Low(A) to High(A) do
      WriteLn(h, '[', i, '] = ', A[i]);
end;

procedure PrintArray2(B: TArray2; h: String);
var
   i: Integer;
begin
   for i := Low(B) to High(B) do
      WriteLn(h, '[', i, '] = ', B[i]);
end;

VAR
   A: TArray1;
   B: TArray2;

BEGIN
   FillRandom(A, -8, 30);
   FillKeybrd(B, 'B');
   PrintArray1(A, 'A');
   WriteLn('Amin * Amax = ', GetMinMax(A));
   PrintArray2(B, 'B');
   WriteLn('Bmin2digit = ', GetMin2Digit(B));
   ReadLn;
END.

Вот так она работает

[newerow1989]

macomics, для чего в функции GetMin2Digit условие B[i] < 100?

[macomics]

Сообщение от newerow1989

macomics, для чего в функции GetMin2Digit условие B[i] < 100?

Павел1223: Найти минимальное двузначное число в этом массиве.
А массив заполняется с клавиатуры. См. ссылку

Если не будет этой проверки, тогда первое число большее 9 будет запомнено в качестве минимального, но при этом оно не будет двузначным.
B: array [1 .. 10] of Integer = (0, 1, 2, 123, 124, 125, 126, 127, 128, 129); Выдаст 123

[newerow1989]

Сообщение от macomics

Павел1223: Найти минимальное двузначное число в этом массиве.
А массив заполняется с клавиатуры. См. ссылку

Точно!

[macomics]

Еще можно в качестве двузначных чисел рассмотреть диапазоны [-99 .. -10] или [-9 .. -1] (двусимвольный с первым символом минус и цифрой). Но это он пускай сам попробует доделать по аналогии.

А если философствовать, тогда единственное двузначное число это 0 (+0 = -0 = 0: или без значное)

[digitalis]

Вроде значность числа определяется числом цифр в нём, знак не учитывается? По логике...

[Alex314]

Павел1223, вот код:

## // PascalАВС.NЕТ 3.8.3
var a := ArrRandom(20, -8, 30);
a.Println;
Print((a.IndexMax + 1) * (a.IndexMin + 1))

## // PascalАВС.NЕТ 3.8.3
var a := ReadArrInteger(10);
a.Where(n -> Abs(n) in 10..99).Min.Print