Результат работы программы
Program pr;
Var х: array [1..100] of integer;
i, s: integer;
begin
s: =0;
for i:=l to 100 do begin
readln (x [i]);
if (x[ i ]mod 2=0) and (x[i]>0) then s:=s+1;
end;
writeln (s);
end.

количество положительных элементов массива с четными индексами

сумму четных элементов массива

количество четных положительных элементов массива

среднее арифметическое значений элементов массива с четными индексами

​

1. N = , 
32= ,
i = 5 бит. 
ответ: 5 бит.

2. V = K * I, где
V - объем,
K - количество символов в сообщении,
I - количество бит на 1 символ.

N = , 
32= ,
i = 5 бит. 

V = K * I,
V = 10 * 5 = 50 бит.
ответ: 50 бит.

3. N₁ =  ,
32 =  ,
i = 5 бит.

N₂ =  ,
64 =  ,
i = 6 бит.

V₁ = K * I,
V₁ = 50 * 5 = 250 бит.

V₂ = 40 * 6 = 240 бит.

V₁ - V₂ = 10 бит.
ответ: 10 бит.

4. K = n*x*y, где
K - количество символов в сообщении, 
n - число страниц,
x - число строк,
y - число символов в строке.

n = 30,
x = 40,
y = 50,
K - ?

K = n*x*y,
K = 30*40*50 = 60000 символов.
ответ: 60000 символов.

var

   a: integer;

begin

   {1}

   readln(a);

   if a > 0 then a := a + 1;

   writeln(a);

   

   {2}

   readln(a);

   if a < 0 then a := a * 2;

   writeln(a);

   

   {3}

   readln(a);

   if a <> 0 then a := a - 4;

   writeln(a);

   

   {4}

   readln(a);

   if a > 0 then a := a + 1

   else a := a - 1;

   writeln(a);

   

   {5}

   readln(a);

   if a = 0 then a := a + 3

   else a := 0;

   writeln(a);

end.

{6}

var

   x, y: real;

begin

   readln(x, y);

   if x > y then x := x * y

   else x := x + y;

   writeln(x);

end.