1. Прочитать фрагмент программы, ответить на вопрос: «Что выполняет фрагмент программы» 1) var mass: array[1..5] of integer;

2)…
For i:=1 to 5 do
mass[i]:=random(100);
…
3)…
For i:=1 to 5 do
Writeln(mass[i]);
…

2. Прочитать фрагмент программы, ответить на вопросы:
Const mass: array[1..5] of integer=(0,1,2,3,4,5);
…
Р:=1;
For i:=3 to 5 do
Р:=р*mass[i];
Write(p);
…
Вопросы:
1. Как описан массив?
2. Сколько у него элементов?
3. Как меняется индекс?
4. Можно ли обратиться к mass[-5]?
5. Какой индекс имеет 3-й по порядку элемент массива?
6. Какой порядковый номер имеет элемент mass[5]?
7. Что выполняет фрагмент программы?
8. Что будет выведено на экран?
9. Что нужно изменить в программе, чтобы выводился на экран промежуточный результат?
10. Что нужно изменить в программе, чтобы она вычисляла произведение всех элементов массива?

3.Прочитать фрагмент программы, ответить на вопросы:
Const mass: array[1..5] of integer=(0,1,-2,3,4,-5);
…
k:=1;
For i:=1 to 5 do
If mass[i]<0 then k:=k+1;
Write(p);

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

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.