Bмассиве произвольной длины n найти минимальный и максимальный элементы и заменить их нулями.

Готово. program pr; var a: array of integer; i,min,max,n: integer; begin write('размер массива: '); readln(n); setlength(a,n); writeln(); writeln('заполняем '); for i: =1 to n do begin write(i,' элемент: '); readln(a[i]); if i=1 then begin min: =i; max: =i; end; if a[i]> a[max] then max: =i; if a[i]

Var   s, c, cmax: string;   i, j, k, max: integer; begin   write('введите предложение: '); readln(s);   s : = uppercase(s) + '.';   max : = 0;   i : = 1;   while (i < = length(s)) do   begin       c : = '';       while (s[i] in ['а'..'я']) do       begin           c : = c + s[i];           i += 1;       end;       k : = 0;       for j : = 1 to length(c) do           if (c[j] in ['а','е','ё','и','о','у','э','ю','я']) then               k : = k + 1;       if (k > max) then       begin           max : = k;           cmax : = c;       end;       i += 1;   end;   writeln('слово с наибольшим количеством гласных: ',cmax); end. пример: введите предложение: написать алгоритм,что указывает в данному предложении слово, в котором количество гласных максимальное слово с наибольшим количеством гласных: предложении