Помогите дорогие мои решить сл. задачи. Скоро сессия а я в полной жопе с остальными предметами и на программирование не остальсь времени.
----------------------------------------
1)Дана матрица R(9,9). Найти найменьший элемент в каждой строке и записать его на месте первого элемента строки. Вывести исходную и полученною матрицу.
----------------------------------------
2)Дана строка состоящая из русских слов, разделённых пробелами(с одним или несколькими). Определить количество слов, которые начинаются и заканчиваются одной и тойже буквой и содержащие букву "А".
----------------------------------------
3)Из файла F в файл G записать данные ввиде: eсли число положительное в F то в G записывается "2", если отрицательное то "1".
----------------------------------------
4)При поможи типизированиого файла. Дана база дынных:
-Название кружка
-Преподователь
-Кол-во человек
-Возраст (средний)
Организавать поиск по возрасту с видом:
-Название кружка
-Фамилия (Препода)
-Кол-во человек
----------------------------------------
5)Сделать при поможи графиков часы

Где взять игру "Спички" на TurboPascal

Пора открывать бюро платных услуг по написанию задач для сдачи сессии

Barmutik
]]>http://forum.codeby.net/forum23.html]]>
%)
playone
]]>http://forum.codeby.net/forum24.html]]>
%)

Вот спасибо подсказал

Barmutik
как почетному члену твои темы даже закреплены будут

Ну я не знаю если правильно понял то 3 задача вообще лёгкая как и остальные в принципи
Кароч эта прога если числа в файле F идут каждое число в новой строке

{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  F,G:TextFile;
  StrCount:string;
function Chet(a:integer):integer;
begin
  If a mod 2=0  then result:=2;
  If a mod 2<>0  then result:=1;
  If a=0 then result:=0;
end;
begin
  AssignFile(F,'F.txt');
  AssignFile(G,'G.txt');
  Reset(F);
  Rewrite(G);
  While not Eof(F) do
  begin
    Readln(F,StrCount);
    Writeln(G,IntToStr(Chet(StrToInt(StrCount))));
  end;
  CloseFile(F);
  CloseFile(G);
end.
    {Alex RedWoodLan 2005}