1) В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 4, 5, 4, 7, 10, 8, 9, 11, 7, 8 соответственно, т. е. A[0] = 4, A[1] = 5 и т. д. Определите значение переменной k после выполнения следующего фрагмента этой программы, записанной на языке Паскаль k:= 0; for i := 1 to 9 do if A[i] >= A[0] then begin k := k + 1; t := A[i]; A[i] := A[0]; A[0] := t end; 2) В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 4, 5, 4, 7, 6, 3, 9, 11, 7, 8 соответственно, т. е. A[0] = 4, A[1] = 5 и т. д. Определите значение переменной k после выполнения следующего фрагмента этой программы, записанной на языке Паскаль k := 0; for i := 1 to 8 do if A[i] > A[i+1] then begin k := k + 1; t := A[i]; A[i] := A[i+1]; A[i+1] := t end;

Червь  – программа, которая делает копии самой себя. Ее вред заключается в захламлении компьютера, из-за чего он начинает работать медленнее. Отличительной особенностью червя является то, что он не может стать частью другой безвредной программы.Троянская программа (троянский конь, троян)Троянская программа маскируется в других безвредных программах. До того момента как пользователь не запустит эту самую безвредную программу,  троян не несет никакой опасности. Тронская программа может нанести различный ущерб для компьютера. В основном трояны используются для кражи, изменения или удаления данных. Отличительной особенностью трояна является то, что  он не может самостоятельно размножаться.

Program q1;
uses crt;
const n=10;
var i,j:integer;
mass:array [1..n] of integer;
countNum:integer; // переменная для хранения количества нечетных чисел
proizv:integer; // переменная для хранения произведения нечетных чисел
BEGIN
proizv:=1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0
{создание последовательности n целых чисел}
Writeln('Случайные целые числа: ');
for i:=1 to n do
begin
mass[ i ]:=random(9)+1; //присваеваем переменной случайное значение от 1 до 10
write(inttostr(mass[ i ])+', ');
end;
{Вычисление произведения и количества нечетных чисел}
for i:=1 to n do
if mass[ i ] mod 2 <> 0 then //проверяем не четное-ли число, если да, то.. .
begin
inc(countNum); //увеличиваем на один кол-во нечетных чисел
proizv:=proizv*mass[ i ]; // высчитываем произведение
end;
{Вывод результатов}
writeln;
writeln('Всего нечетных чисел: '+inttostr(countNum));
writeln('Их произведение: '+inttostr(proizv));
END.