1) Даны 5 чисел, вывести числа кратные 2 и 4. 2)

1) Var i:Integer;

A:array[1..10]of integer;

Begin

Write('Введите пять цифр') ;

For i:=1 to 5 do begin

Read(a[i]) ;end;

Write('Кратные двум') ;

For i:=1 to 5 do begin

If a[i] mod 2 =0 then write(' ', a[i]) ;

End;

Write('кратные четырем') ;

For i:=1 to 5 do begin

If a[i] mod 4 =0 then write(' ', a[i]) ;

End;

End.

2)Var a, b, k, i:integer ;

Begin

Write(' a=') ;read(a) ;

Write(' b=') ;read(b) ;

If (agt;0)and(bgt;0) then k:=0;

If (agt;0)and(blt;0) then k:=абс(b) ;

If (alt;0)and(bgt;0) then k:=abs(a) ;

If (alt;0)and(blt;0) then k:=абс(a-b) ;

Write('колво отрицательных чисел ', k) ;

End.