1)Как правило, в итоге каких либо определенных причин наступают действия (последствия). На основании причин человек может объяснять и планировать события.Приводится несколько вариантов:По причине поломки главного узла простаивает весь конвейер. По причине неблагоприятных погодных условий в аэропорту сегодня были отменены все авиарейсы.Муж с женой уже которую ночь спят отдельно по причине того, что жена на последнем месяце беременности. 2) философские категории, выражающие отношение между совокупностью предметов (или элементов отдельного объекта) и связью, объединяет эти предметы и приводит к появлению у совокупности новых (интегративных) свойств и закономерностей, не присущих предметам в их разобщенности
Объяснение:
1.
var
a:array[1..1000] of integer;
i, n:integer;
count:integer;
begin
writeln('Input n = ');
readln(n);
for i:=1 to n do begin
writeln('Input a[', i, '] = ');
readln(a[i]);
end;
count:=0;
i:=1;
while (i<=n) do begin
if (((a[i] mod 3) = 0) and ((a[i] - (a[i] div 10)*10) = 2)) then count:=count + 1;
i:=i+1;
end;
writeln(count);
readln;
end.
2.
var
a:array[1..1000] of integer;
i, n:integer;
count:integer;
begin
writeln('Input n = ');
readln(n);
for i:=1 to n do begin
writeln('Input a[', i, '] = ');
readln(a[i]);
end;
count:=0;
i:=1;
repeat
if (((a[i] mod 3) = 0) and ((a[i] - (a[i] div 10)*10) = 2)) then count:=count + 1;
i:=i+1;
until (i > n);
writeln(count);
readln;
end.