Misha_

Untitled

Oct 14th, 2020 (edited)
813
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. const SZ = 100;
  2. type mas= array[1..SZ]  of integer;
  3.  
  4. function FindMin(const a:mas; n, min, i: integer): integer;
  5. begin
  6.     if a[i] < min then
  7.         min := a[i];
  8.     if i = n then begin
  9.         FindMin := min;
  10.     end
  11.     else begin
  12.         i := i+1;
  13.         FindMin := FindMin(a, n, min, i);
  14.     end;
  15. end;
  16.  
  17. var
  18.     a: mas;
  19.     N: integer;  
  20.     i: integer;
  21.     min: integer;
  22.     j: integer;
  23.  
  24. begin
  25.     writeln('Введите размер массива: ');
  26.     readln(N);
  27.     writeln('Введите элементы массива: ');
  28.     for j := 1 to N do
  29.         read(a[j]);
  30.     min := a[1];
  31.     i := 2;
  32.     write('Минимальный элемент массива: ');
  33.     min := FindMin(a, n, min, i);
  34.     writeln(min);
  35. end.
RAW Paste Data