прикладная математика

program MinElem;
var Mymas : array of integer;
    i, //лiчильник
    num, //кількість елементів масиву
    min, //мінімальне значення
    count:integer;//кількість мінімальних елементів
begin
  writeln('Введіть кількість елементів масиву');
  readln(num); //зчитуєм кількість елементів масиву
  SetLength(Mymas,num); //задаємо його розмір
  
  min:= 32768; //мінімальне число = максимальному числу типу integer
  
  for i := 0 to num -1 do 
  begin
    writeln('Введіть ' , i + 1, '-й елемент масиву');
    readln(Mymas[i]); //запмсуемо число в масив
    if (min > Mymas[i]) then min := Mymas[i]; //зниходимо мінімум
  end;

  count:=0; //кількість мінімальних елементів спочатку = 0
  for i := 0 to num -1 do 
    if (min = Mymas[i]) then count := count + 1;
  
  writeln('Кількість мінімальних елементів = ',count,' ,мінімальний елемент = ',min);
  readln;
end.

// Минимальные элементы в массиве
const n = 20;

var
a: array [1..n] of integer;
i,min,k: integer;

begin
// Заполнение массива случайными числами
for i:=1 to n do
a[i] := Random(5);
k:=0;

// Вывод массива
write('Массив a: ');
for i:=1 to n do
write(a[i],' ');
writeln;

// Находим минимальный элемент
min := a[1];
for i:=2 to n do
if a[i] < min then min:=a[i];

// Вывод номеров минимальных элементов
writeln('Минимальный элемент в массиве равен ',min);
write('Позиция в массиве: ');
for i:=1 to n do

if a[i] = min then  
begin
k:=k+1;
write(i, '  ');
end;

writeln('Всего минимал.елементов: ',k);
end.