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
Файлдық вирустар көбінесе бағдарламалардың орындалатын модульдеріне енеді (бағдарлама іске қосылатын файлдар), бұл оның жұмысына әсер ететін, бағдарлама іске қосылған сәтте оларды іске қосуға мүмкіндік береді. Әдетте, файлдық вирустар операциялық жүйеге немесе бағдарламалық жасақтама кітапханаларына, орындалатын пакеттік файлдарға, Windows тізілім файлдарына, сценарий файлдарына және драйвер файлдарына енуі мүмкін. Инъекцияны шабуыл жасалған файлдың кодын өзгерту арқылы немесе оның өзгертілген көшірмесін жасау арқылы жүзеге асыруға болады. Осылайша, файлдағы вирус қолданушы немесе ОС өзі бастаған осы файлға қол жеткізген кезде іске қосылады. Файлдық вирустар - компьютерлік вирустың ең көп таралған түрі.