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 (a>0)and(b>0) then k:=0;
If (a>0)and(b<0) then k:=abs(b) ;
If (a<0)and(b>0) then k:=abs(a) ;
If (a<0)and(b<0) then k:=abs(a-b) ;
Write('колво отрицательных чисел ', k) ;
End.
Объяснение:
var
x, a, b:integer;
ras_x_a, ras_x_b, ras_a_b:integer;
ras_min:integer;
begin
x:=5;
a:=1;
b:=8;
ras_x_a:=abs(x-a);
ras_x_b:=abs(x-b);
ras_a_b:=abs(a-b);
if ((ras_x_a <=ras_x_b) and (ras_x_a <=ras_a_b)) then
ras_min:=ras_x_a
else
if ((ras_x_b <=ras_x_a) and (ras_x_b <=ras_a_b)) then
ras_min:=ras_x_b
else
if ((ras_a_b <=ras_x_a) and (ras_a_b <=ras_x_b)) then
ras_min:=ras_a_b;
writeln(ras_min);
end.
