Дан массив целых чисел, состоящий из 5 элементов. заполнить его с клавиатуры. найти: количество четных элементов; вывести значения тех элементов, которые меньше заданного числа z и кратны 4.

const n=5;

var a:array[1..n] of integer;

i,k,z: integer;

begin

for i:=1 to n do

begin

write ('Введите ',i,' элемент: ');

readln (a[i])

end;

write ('Массив: ');

for i:=1 to n do

begin

if a[i] mod 2 = 0 then k:=k+1;

write (a[i]:3,' ')

end;

writeln;

write ('z = ');

readln (z);

write ('Элементы < z и кратные 4: ');

for i:=1 to n do if (a[i]<z) and (a[i] mod 4 = 0) then write (a[i]:3,' ')

end.

// PascalABC.NET версия 3.4, сборка 1767

begin

var mas:=ReadArrInteger('Введите элементы масива-> ',5);

Writeln('количество четных элементов = ',mas.Where(t->t mod 2 = 0).Count);

var z:=ReadInteger('z = ');

Write('значения тех элементов, которые меньше заданного числа Z и кратны 4: ');

mas.Where(t->(t<z )and (t mod 4 = 0)).Print;

end.

После выполнения программы выводится значение переменной n. Пока цикл выполняется, значение n увеличивается на 2, изначально n=0, то есть мы можем определить количество повторений цикла и умножить его на 2.

Цикл выполняется, пока s<111, изначально s=0, каждый повтор цикла s увеличивается на 8. То есть мы должны найти первое значение s, при котором условие перестанет выполняться.

Каждый повтор цикла значение s увеличивается на 8, значит s, в конечном итоге, будет кратно 8-ми. Наименьшее s, при котором условие цикла перестанет выполняться — 112.

Определим количество повторов цикла:

112:8 = 14

Каждый повтор цикла n увеличивается на 2, то есть значение n будет равно:

14*2 = 28

ответ: 28

алг

нач

цел n, s

s:=0

n:=0

нц пока s<111

s:=s+28

n:=n+3

кц

вывод n

кон

алг

нач

цел s, a

s:=0

a:=6

нц пока a<31

s:=s+4

a:=a+2

кц

вывод s

кон

алг

нач

цел n, s, a

s:=12

a:=32

нц для n от 5 до 12

s:=s+a

a:=a-1

кц

вывод s

кон

умоляю ! С ОБЪЯСНЕНИЕМ

можно с объяснением, я не понимаю эту тему

умоляю !

Объяснение:

алг

нач

цел n, s

s:=0

n:=0

нц пока s<111

s:=s+28

n:=n+3

кц

вывод n

кон

алг

нач

цел s, a

s:=0

a:=6

нц пока a<31

s:=s+4

a:=a+2

кц

вывод s

кон

алг

нач

цел n, s, a

s:=12

a:=32

нц для n от 5 до 12

s:=s+a

a:=a-1

кц

вывод s

кон

умоляю ! С ОБЪЯСНЕНИЕМ

можно с объяснением, я не понимаю эту тему

умоляю !