Определить минимальный размер стипендии в каждой группе Фамилия Имя Группа Год рождения Размер стипендии1 Алексеева Анна 211 12.12.1989 450, 00 ₽2 Денисов Дмитрий 212 23.11.1990 460, 00 ₽3 Ермакова Яна 213 09.07.1991 500, 00 ₽4 Жукин Иван 211 01.01.1989 470, 00 ₽5 Зайцев Михаил 213 05.10.1990 600, 00 ₽6 Ильина Галина 213 07.07.1990 800, 00 ₽7 Майорова Ирина 212 25.03.1991 850, 00 ₽8 Макарова Мария 211 19.05.1989 600, 00 ₽9 Маклакова Эвелина 213 20.09.1989 600, 00 ₽10 Петрова Вера 213 21.10.1990 550, 00 ₽11 Семенов Петр 213 29.11.1989 640, 00 ₽12 Синицина Марина 212 08.02.1991 700, 00 ₽13 Смирнов Александр 212 04.04.1990 750, 00 ₽14 Фишкин Алексей 211 11.11.1991 450, 00 ₽15 Фоминых Павел 211 25.05.1989 550, 00 ₽

Program P7;
var S:String; n,k1,k2,k3,i:byte;
Begin
writeln('Введите строку:');
readln (S);
n:=length (S);
k1:=0; k2:=0; k3:=0;
For i:=1 to n do 
case S[I] of 
' ' : k1:=k1+1;
',',';','.','!',':','?' : k2:=k2+1;
'b','c','d','f','g','k','l','m','n','p','r','s','t': k3:=k3+1
end;
Writeln ('kolicestvo clov = ',k1+1);
Writeln ('kolicestvo znakov prepinania = ',k2);
writeln('kolicestvo soglasnih = ', k3);
readkey
end.

Пример:
Введите строку:
na ulite sneg.
kolicestvo clov = 3
kolicestvo znakov prepinania = 1
kolicestvo soglasnih = 6

При использовании random() упорядоченные строки получаются редко. Можете массив вводить с клавиатуры.
const n=5; m=4;
var 
a:array[1..n,1..m] of integer;
i,j,max:integer;
b1,b2:boolean;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to m do
  begin
   a[i,j]:=random(100);
   write(a[i,j]:4);
  end;
  writeln;
 end;
max:=-1000;
for i:=1 to n do
 begin
 b1:=true; b2:=true;
 for j:=1 to m-1 do
  begin
  if a[i,j]<a[i,j+1] then b1:=false;
  if a[i,j]>a[i,j+1] then b2:=false;
  end;
 if b1 or b2 then
  for j:=1 to m do
   if a[i,j]>max then max:=a[i,j];
 end;
if max<>-1000
 then writeln('max = ',max)
 else writeln('В массиве нет упорядоченных строк');
end.

Пример:
45 34 88 53
 2 7 36 71
48 57 28 42
75 61 10 93
15 3 61 54
max = 71