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

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.

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

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

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

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

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

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

end.

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

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

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

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

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

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