Помогите решить задачи по Паскалю!

[Brizon]

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

[-=<[Evklidd]>=-]

1) Задача:

program gery;
type
 mat = array [1..50,1..50] of integer;
var
 m: mat;
 st, l, j, i, q , k: integer;
function Matr(a:mat):integer;
 begin
  i:= 1;
  k:= 0;
  repeat
   begin
    for j:= 1 to l do
     begin
      if a[j,i] = 0 then
       begin
        inc(k);
        break;
       end;
     end;
    inc(i);
   end;
  until i = st;
  Matr:= k;
 end;
begin
 Randomize;
 write('Kol-vo stolbcov: ');
 readln(st);
 write('Kol-vo strok: ');
 readln(l);
  for j:= 1 to l do
  begin
   for i:= 1 to st do
    begin
     m[j,i]:= random(21)-10;
     write(m[j,i],' ');
    end;
   writeln('');
  end;
 q:= Matr(m);
 writeln('Kol-vo stolbcov c nulevum elementom: ', q);
 readln;
end.

[Xardas]

to Brizon

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

Вот идентичная ваша тема

Нехорошо создавать несколько одинаковых тем

Сорри за флуд!

В следующий раз перед созданием темы прочитайте правила раздела.
Закрыто.