1)В случаях когда надо показать отношения чего-то к чему-то
2)Они могут быть построены когда надо сравнить несколько данных и показать это наглядно
1) загоняем синий шарик в нишу
2) прогоняем мимо него все красные направо
3) выкатываем его из ниши и вытаскиваем его из жолоба
4) иди к п 1)
Uses crt;
var a:array[1..4] of integer;
sum,i:integer;
begin
clrscr;
writeln('Введите 4 целых числа:');
for i:=1 to 4 do
begin
read(a[i]);
if a[i]mod 3=0 then sum:=sum+a[i];
end;
writeln('Сумма чисел, кратных трем: ',sum);
<span>end.</span>