Заполните массив, состоящий из 20 элементов, случайными целыми от 15 до 100. найдите минимальный элемент из элементов с чётными значениями.

Объяснение:

program EvenMinimum;

var

a : array [1..20] of integer;

i,min: integer;

begin

   for i:= 1 to 20 do a[i]:=random(85)+15;

   writeln('Default array:');

   for i:=1 to 20 do write(a[i],' ');

   writeln();

   for i:=1 to 20 do if a[i] mod 2 = 0 then min:=a[i];

   for i:=1 to 20 do if (a[i] < min) and (a[i] mod 2 = 0) then min:=a[i];

   writeln('Even minimum in this array is :', min);

end.

// PascalABC.NET 3.2, сборка 1443 от 19.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк в массиве:');
  var m:=ReadInteger('Количество колонок в массиве:');
  Writeln('*** Исходный массив [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var s:=a.ElementsWithIndexes;
  var max:=s.MaxBy(x->x[2]);
  var min:=s.MinBy(x->x[2]);
  a.SwapRows(max[0],min[0]);
  Writeln('*** Результирующий массив ***');
  a.Println(4)
end.

Пример
Количество строк в массиве: 6
Количество колонок в массиве: 9
*** Исходный массив [6,9] ***
  42 -66 -81  85  62 -36 -54  54  93
  80  32 -85 -44  54 -99  72  53  59
  20  50  27  98 -40  43 -52 -48 -92
  37 -86 -53 -81  85  16 -31 -37  93
  36  75  76 -95  38 -15  29 -86  97
  12  94 -38 -52  86 -13 -99  91   1

*** Результирующий массив ***
  42 -66 -81  85  62 -36 -54  54  93
  20  50  27  98 -40  43 -52 -48 -92
  80  32 -85 -44  54 -99  72  53  59
  37 -86 -53 -81  85  16 -31 -37  93
  36  75  76 -95  38 -15  29 -86  97
  12  94 -38 -52  86 -13 -99  91   1

Чтобы команда сработала, нужно её напечатать при клавиатуры и нажать ENTER. В основном регистр не учитывается, то есть команды можно вводить как маленькими так и большими буквами. Имена файлов в DOS могут быть только в формате 8.3, то есть не более 8 символов в названии файла и не более 3 в расширении (исключая недопустимые символы — пробел . " / \ [ ] : ; = ,). Пробел используется в качестве разделителя между командой и её параметрами.
Далее
КоммандаОписание
dirПросмотр каталога
mdСоздание каталога
cdСмена текущего каталога
rdудаление каталога
deltreeУдаление каталога со всем его содержимым
moveпереименовать каталог
pathпоиск