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

[Brizonthik]

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

 

[bubuka]

Дана целочисленная прямоугольная матрица. Определить количество столбцов,содержащих хотя бы один нулевой элемент (оформить в виде фукции).

type
mas=array [1..100,1..100] of integer;

function otv(a:mas; m,n:integer):integer;
var
i,j,k:integer;
begin
k:=0;
for j:=1 to n do
for i:=1 to m do
if a[i,j]=0 then begin k:=k+1; break; end;

otv:=k;
end;

var
b:mas;
sto,str:integer;

begin
{Тут ввод матрицы b порядка m*n, где sto - кол-во столбцов , а str - кол-ко строк}

writeln('Ответ ',otv(b,str,sto));

end.

 

[bubuka]

через часик остальные две напишу

 

[Novichok]

Дано натуральні числа n і а1, а2...аn. Визначити кількість тих членів послідовності, що кратні числу 3 і не кратні числу 7.
Допоможіть пліз

 

[bubuka]

В украинском я не ас но вроде понятно.
Есть массив натуральных чисел из Н эелементов. Ввести те которые кратны 3 и не кратны 7.

var
a:array [1..maxint] of integer;
b:array [1..100] of integer;
i,n:integer;
begin
writeln('Введите кол-во эелементов');
readln;
writeln('Введите элементы массива');
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a);
end;

k:=0
for i:=1 to n do
if (a mod 3 = 0) and (a mod 7 <> 0 ) then begin k:=k+1; b[k]:=a; end;

writeln('Итог');
For i:=1 to k do
write(b[k],' ');

end.

 

[Brizonthik]

Помогите пожалуйста решить задачки 2 и 3 с коментами плиз

 

[milani]

Неизвестное устройство

У меня такая проблема, переустановил ХР (просто переустановил с того же диска что и раньше ставил), так вот, при попытке подключения видео камеры, флешки и фотопринтера к USB портам во время установки этих устройств появляется сообщение - обнаружено неизвестное устройство и комп типа его распознать не может. При этом при всём USB сканер и модем работают. Всю голову себе изломал. Может кто в курсе что это и как бороться?

 

[Endrew]

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

дрова вроде ко всему идут . ставили ?

 

[milani]

дрова вроде ко всему идут . ставили ?

Вот как раз при установке дров программа установки просит подсоединить устройство к usb порту, а порт устройство не понимает ни камеру, ни принтер ни флешку.

 

[Endrew]

Сл@вик, а комп не должен распознавать это устройство ,должен запускаться мастер новых подключений а вот после установки дров ,устройство должно распознаться а мастер сообщить что устройста готово к работе

 

[milani]

Сл@вик, а комп не должен распознавать это устройство ,должен запускаться мастер новых подключений а вот после установки дров ,устройство должно распознаться а мастер сообщить что устройста готово к работе

Тоже пробовал, пишет найдено устройство юсби девайс, а потом всплывает сообщение неизвестное устройство и мастер установки не появляется.
Там как вообще всё выглядит. Сначала принтер не соединён с компом, начинается установка дров с диска, а потом в процессе появляется окошко "А теперь подсоедините принтер к usb порту компьютера" подсоединяю и комп выдает это сообщение что неизвестное устройство и соответственно установка дров не продолжается, ждёт подсоединения принтера. С 2003 года с компом на ты с такой головомойкой не сталкивался. И антивирусником обновлённым проверял, не помогает, только эксплорер экзе ещё и глючить начал, постоянно выдаёт ошибку и рабочий стол пропадает (я скоро застрелюсь ).

 

[Endrew]

Сл@вик, ооо... это наверное вам сюда http://pchelpforum.ru/f26/t6442/#post37758