А вот и еще пара задач на Паскале.Буду очень признательна, если решите!:)

[Darangel]

1)Эта вроде бы легкая задача, но вот где то у меня ошибка, поэтому пишу условие: В русском языке после букв ж, ч, щ, ш пишется и, а, у, не ы, я, ю. Проверить заданный текст на соблюдение данного условия и справить ошибки( но с учетом исключений:жюри, брошюра, парашют), т.е когда эти слова не должны менятся.
2)Дана целочисленная прямоугольная матрица:
Определить количество столбцов, не содержащих ни одного нулевого элемента.
Характеристикой строки целочисленной матрицы назовем сумму ее положительных четных элементов. Переставляя строки заданной матрицы, расположить их в соответствии с ростом характеристик.

[Sazary]

Вторая:

uses crt;
const m=5; n=6;
var matr : array[1..m,1..n+1] of integer;
i,j,k,beznul,tmp,mn : integer;
fl : boolean;
begin
clrscr;
randomize;
for i:=1 to m do
 begin
 for j:=1 to n do
   begin
   matr[i,j] := random(30)-9;
   write(matr[i,j]:4);
   end;
  writeln;
 end;
writeln('-------');
beznul := 0;
for j:=1 to n do
 begin
 fl := true;
 for i:=1 to m do
  if matr[i,j] = 0 then
    begin
    fl := false;
    break;
    end;
  if fl then inc(beznul);
 end;
writeln('Kolichestvo stolbcov bez nulej: ',beznul);

for i:=1 to m do
 begin
 matr[i,n+1] := 0;
 for j:=1 to n do
  if (matr[i,j]>0) and (matr[i,j] mod 2 = 0) then inc(matr[i,n+1]);
 end;

for i:=1 to m-1 do
  begin
   mn := i;
   for j:=i+1 to m do
     if matr[mn,n+1]>matr[j,n+1] then mn := j;
   for k:=1 to n+1 do
    begin
    tmp := matr[i,k];
    matr[i,k] := matr[mn,k];
    matr[mn,k] := tmp;
    end;
  end;
{---}
for i:=1 to m do
 begin
 for j:=1 to n do
  write(matr[i,j]:4);
 write('  harakt = ',matr[i,n+1]);
 writeln;
 end;

readln;
end.

[Sazary]

Вторая:

uses crt;
const isk1='жюри'; isk2='брошюра'; isk3='парашют';
bukv = ['ж','ч','ш','щ'];
var
s : string;
i,k,len : integer;
begin
clrscr;
writeln('Vvedite tekst:');
readln(s);

k:=1;
i := 1;
len := length(s);
while i<=len do
 begin
 while (not (s[i] in bukv)) and (i<=len) do
   begin
   if s[i] = ' ' then k:=i+1;
   inc(i);
   end;
 if (copy(s,k,4) = isk1) or (copy(s,k,7) = isk2) or (copy(s,k,7) = isk3) then
   begin
   inc(i,4);
   continue;
   end;
 {--}
 if s[i+1] = 'ы' then
   begin
   delete(s,i+1,1);
   insert('и',s,i+1);
   inc(i);
   continue;
   end
 else if s[i+1] = 'я' then
   begin
   delete(s,i+1,1);
   insert('а',s,i+1);
   inc(i);
   continue;
   end
  else if s[i+1] = 'ю' then
   begin
   delete(s,i+1,1);
   insert('у',s,i+1);
   inc(i);
   continue;
   end
  else inc(i);
 end; {while}
writeln;
writeln(s);
readln;
end.

Пример ввода:

Vvedite tekst:
жыли были чящя с парашютом. жюри шютки шютили

жили были чаща с парашютом. жюри шутки шутили