ть написати код в мові програмування C
наперід дякую.​

Program Massiv;

Uses Crt;

const n=10 {размер массива} 

var i,k:integer;

       a:array[1..n] of integer;

begin

     clrscr;

     write('Введите элементы массива:' );

     k:=1  

     for i:=1 to n do

            begin

                 readln (a[i]);

                 if (a[i]<0) and (a[i] mod 7)=0 then k:=k*a[i];

            end;

writeln;   

write('Исходный массив:') 

 

for i:=1 to n do   write(a[i]:3);       

 

 writeln;

writeln('Произведение отрицательных элементов кратных 7:',k);

 

 readkey;

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

A2 № 3487. Между населёнными пунктами A, B, C, D, E, F построены дороги, протяжённость которых приведена в таблице. (Отсутствие числа в таблице означает, что прямой дороги между пунктами нет.)

Определите длину кратчайшего пути между пунктами A и B (при условии, что передвигаться можно только по построенным дорогам).
1) 6
2) 7
3) 8
4) 9  

A2 № 1030. Путешественник пришел в 08:00 на автостанцию поселка КАЛИНИНО и увидел следующее расписание автобусов:

Определите самое раннее время, когда путешественник сможет оказаться в пункте РАКИТИНО согласно этому расписанию.

1) 12:25
2) 12:30
3) 12:35
4) 12:40