Question

intrebarea nr.2 (faceti programul pascal ) dau coroana!!!!

Answer 1

program item2;

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

    n, primul, ultimul, dif_de_primul, dif_de_ultim, i: integer;

begin

   write('n='); readln(n);

   writeln('introdu ',n,' elemente a tabloului:');

   for i:=1 to n do

       begin

         write('a[',i,']='); readln(a[i]);

       end;

   primul:=a[1]; ultimul:=a[n];

   dif_de_primul:=0; dif_de_ultim:=0;

   for i:=1 to n do

       begin

         if a[i]<>primul then inc(dif_de_primul);

         if a[i]<>ultimul then inc(dif_de_ultim);

       end;

   writeln(dif_de_primul,' elemente sunt diferite de primul');

   writeln(dif_de_ultim,' elemente sun diferite de ultimul');

end.