Связь, открытая нашим соотечественником в 1895 году

Оперативная память и долговременная

Имя Павел вошло в христианский календарь как имя одного из величайших учителей Церкви Христовой, который после прочих Апостолов обратился к вере в Иисуса Христа, но более каждого из них содействовал покорению державе Его всего мира. Как гласит предание, апостол Павел сначала звался Саулом и был ярым противником и гонителем христианского учения. Однако когда Господь призвал его к апостольству, Саул уверовал в веру Христову и стал ревностно распространять новое учение. Явившийся к нему во сне Господь дал ему имя Павел и повелел распространять христианство по всей земле.

Var m, k, i: integer;
mas: array [1..10] of integer;
begin
mas[1]:=12; mas[2]:=-5; mas[3]:=-14;
mas [4]:=16; mas[5]:=-10; mas[6]:=-6; mas[7]:=8; mas[8]:=-10; mas[9]:=-15; mas[10]:=-8;
m:=0; k:=0;
for i:=1 to 10 do
if (mas[i]<0) and (i mod 2=0) then k:=k+1
else
if mas[i]<10 then
m:=m+1;
write(m+k);
end.