Проверь себя. Читая слова, слушай их звуки. Назови слово, в котором все согласные звуки мягкие. шить жить пить Найди слово, в котором все согласные

Слово, в котором все согласные звуки мягкие: пить. Слово, в котором все согласные звуки твёрдые: сом. Сорока - 2 буквы о, 1 звук [о].   Ворона - 2 буквы о, 1 звук [о|. Воробей - 2 буквы о, нет звука [о]. Пень - 3 зв., 4  Пел-3 зв.,3 б. Ел-3 зв.. 2 б.

USES Crt;
 CONST  M=100;
 VAR
   MAS: ARRAY[1..100] OF INTEGER;
   I,K,N,NEW: INTEGER;
 BEGIN
   ClrScr;
   Write(' Введите размер массива N= ');   ReadLn(N);
   { Заполнение массива с клавиатуры }
   FOR I:=1 TO N DO Begin
     Write(' Введите ',I,' элемент массива ');  ReadLn(MAS[I]);
   End;
   NEW:=MAS[N];   K:=N;
   { Нахождение наибольшего элемента и его индекса }
   FOR I:=N DOWNTO 1 DO
     IF MAS[I]>NEW THEN Begin NEW:=MAS[I]; K:=I;  End;
   { Перестановка местами первого и наибольшего элементов }
   MAS[K]:=MAS[1]; MAS[1]:=NEW;
   WriteLn(' Измененный массив');
   FOR I:=1 TO N DO
     Write(MAS[I]:4);
 END.

USES Crt;
 CONST   N=15;
 VAR
   A:ARRAY[0..N] OF INTEGER;
   I,IND: BYTE;   MIN:INTEGER;
 BEGIN
   ClrScr;   Randomize;
   WriteLn(' Значения элементов массива');
   FOR I:=1 TO N DO Begin
     A[I]:=Random(400);   Write(A[I]:4);
   End;   WriteLn;
   MIN:=A[1];   IND:=1;
   { нахождение минимального значения и его индекса }
   FOR I:=2 TO N DO
     IF A[I]<MIN THEN Begin  MIN:=A[I]; IND:=I; End;
   WriteLn(' Минимальное значение = ',MIN);
   { замена нулями элементов, расположенных за минимальным значением }
   FOR I:=IND+1 TO N DO
     A[I]:=0;
   WriteLn(' Измененный массив');
   FOR I:=1 TO N DO
     Write(A[I]:4);
 END.