Самые нужные компьютерные операции

1) 

var a:array [1..100] of integer;

n,i:integer;

begin

for i:=10 to 99 do begin

a[i]:=i;

if (a[i] mod n=0) then writeln(a[i]);

end;

end.

 

 2)

var a:array [1..100] of integer;

n,k,i,x,y,z: integer;

begin

readln(n,k);

for i:=n to k do begin

a[i]:=i;

x:=a[i] mod 10;

y:=a[i] div 10;

z:=y mod 10;

y:=y div 10;

if (x=y) or (x=z) or (y=z) then writeln(a[i]);

end;

end.

 

 3)

 var a,n,an,na: integer;

begin

readln(a,n);

if (a>0) and (b>0) then begin

an:=a*10+n;

na:=n*10+a else writeln('Введены неверные числа!');

end;

end.

вот не забудь нажать Объяснение:

var

   arr : Array[1..100] Of ShortInt;

   temp : ShortInt;

   i, j, n : Byte;

begin

   Write('n='); ReadLn(n);

   Randomize;

   for i := 1 to n do

   begin

       arr[i] := Random(11) - 5;

       Write(arr[i], ' ');

   end;

   WriteLn; WriteLn;

   for i := 2 to n do

       for j := n downto i do

           if (((arr[j - 1] <= 0) And (arr[j] > 0)) Or ((arr[j - 1] < 0) And (arr[j] = 0)))

           then

           begin

               temp := arr[j - 1];

               arr[j - 1] := arr[j];

               arr[j] := temp;

           end;

   for i := 1 to n do

       Write(arr[i], ' ');

end.