турбо паскаль

[resss]

немогу справится с задачами,по половине решаю,а дальше не могу( за эту неделю нужно сдать!


Строки.
1 Определить, сколько раз в заданном предложении встретится сочетание 2-х первых букв. Напечатать исходный текст и и число сочетаний.
2. В заданном предложении на английском языке сделать прописными первую и последнюю буквы каждого слова. Напечатать исходный и преобразованный тексты

Записи в Паскале
Составить программу, которая организует ввод данных о семье: ФИО адрес, число членов семьи, занимаемая жилая площадь и записывает их в массиве записей, а затем выводит фамилии семей, число членов которых больше 3.

Обработка файлов в Паскале
1.Создать файл, содержащий произвольные текстовые строки. Подсчитать количество строк, начинающихся с буквы «а».
2 Из текстового файла удалить все пустые строки. Пустой считать строку, не содержащую символов или состоящую только из пробелов.

[L_Killer]

Выкладывай лучше по одной - кучу сразу тебе никто помогать решать не будет. А еще к каждой прилагай код, который ты уже добыл, какой-никакой, а код - значит хоть что-то делал.

[resss]

ну я надеюсь что найдутся добрые люди и хоть что-то но помогут сделать!!!!!А пока буду сама сидеть пытаться!

[Z1000000]

{В заданном предложении на английском языке сделать прописными первую и последнюю буквы каждого слова. 
Напечатать исходный и преобразованный тексты }
program FirstLast;
label 1;
var
 aStr,CurWord : String;
 i,k : Integer;
begin
aStr := 'asdf lskdfj ssjfel slefjs l lksje fslkjs';
writeln ( aStr );
aStr := aStr + ' ';
for i := 1 to Length(aStr) do
 begin
  if aStr[i] = ' ' then
   begin
   if CurWord <> '' then
     begin
     CurWord := UpCase(CurWord[1]) + Copy(CurWord,2,Length(CurWord)-2) + UpCase(CurWord[Length(CurWord)]);
     write ( CurWord, ' ' );
     CurWord := '';
     end;
   end
  else
   begin
   CurWord := CurWord + aStr[i];
   end;
 end;
end.

[resss]

спасибо огромное.......

[ROMA2PVT]

-I-

Uses
   CRT;
var
  mas:array [1..100,1..100] of integer;
  i,j,n:integer;

begin
Clrscr;
  randomize;
  write('Количество строк и столбцов: ');
readln(n);
writeln('Исходная матрица: ');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          mas[i,j]:=random(12)-3;
          write(mas[i,j]:4,' ');
        end;
      writeln;
    end;
    writeln;
    for i:=1 to n do
      for j:=1 to n do
        if (i>j) then
          begin
             mas[i,j]:=0;
          end;
    writeln;
   writeln('Результирующая матрица: ');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
           write(mas[i,j]:4,' ');
        end;
        writeln;
    end;
    readkey;
    end.

задание из удалённой темы.Остальное в гугле пробей (т.к.писалось уже неоднократно).

[resss]

спасибо огромное))))пыталась найти не выводит такие задачи!!!!!кто нибудь помогите ещёодну сделать
строки:в заданном предложении указать слово,в котором доля буквы а максимальна.напечатать исходный текст,найденное слово и сколько раз буква а встречается в этом слове.
очень прошу

[Stilet]

И снова я порекомендую разбиение строки по словам://http://www.programmersforum.ru/showthread.php?p=398369#post398369
Там допиши как получился новый элемент массива, пройти по нему циклом по буквам и узнать сколько букв "а" в слове, и если больше чем некий максимум запомнить этот элемент