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 (при условии, что передвигаться можно только по построенным дорогам).A2 № 1030. Путешественник пришел в 08:00 на автостанцию поселка КАЛИНИНО и увидел следующее расписание автобусов:
Определите самое раннее время, когда путешественник сможет оказаться в пункте РАКИТИНО согласно этому расписанию.
1) 12:25
2) 12:30
3) 12:35
4) 12:40
31.25 кбайт\с * 120 с = 3 750 кбайт.