На рисунке изображена формула. Посмотрите рисунок и дайте ответ на во Чему будет равно значение в ячейке А1, если в ячейке находится число 18?

1) Некорректная работа программного обеспечения из-за инфицирования компьютерным вирусом

Б) Использование только лицензионного программного обеспечения.

В) Использование антивирусных программ.

2) Несанкционированный доступ извне

Г) Ограничение круга лиц, имеющих доступ к серверам и главным компьютерам.

З) Своевременное обновление антивирусных баз.

3) Технические сбои оборудования

Е) Предотвращение нарушений работы кабельной системы.

Д) Создание резервных дисков копий информации.

4) Некорректная работа пользователей и обслуживающего персонала

А) Разграничение полномочий.

Ж) Постоянное повышение квалификации в области работы с информацией.

1. 
var A: array [1..10] of integer;
i, sum, k: integer;
begin
for i:=1 to 5 do
read(A[i]);
sum:=0;
k:=0;
for i:=1 to N div 2 do
sum:=sum+A[i];
k:=k+1;
writeln('Среднее арифметическое первой части=', sum/k);
sum:=0;
k:=0;
for i:=5 to 10 do
sum:=sum+A[i];
k:=k+1;
writeln('Среднее арифметическое второй части=', sum/k);
end.

2. const: N={количество элементов массива}; 
var A: array [1..N] of integer;
i, sum, k: integer;
begin
for i:=1 to N do
read(A[i]);
sum:=0;
k:=0;
for i:=1 to (N div 2) do
sum:=sum+A[i];
k:=k+1;
writeln('Среднее арифметическое первой части=', sum/k);
sum:=0;
k:=0;
for i:=(N div 2) to N do
sum:=sum+A[i];
k:=k+1;
writeln('Среднее арифметическое второй части=', sum/k);
end.