Question

Se considera tabloul A[1..n] de numere reale,n<=100.Sa se scrie un program care numara cite elemente sunt diferite de:
a)ultimul element;
b)primul element.
PASCAL

Answer 1

var

 a:array[1..100] of integer;
 i,n,nr1,nr2:integer;
 
begin

 read(n);
 
 for i:=1 to n do
  read(a[i]);
  
 for i:=2 to n-1 do
  begin
   if(a[i]<>a[1]) then nr1+=1;
   if(a[i]<>a[n]) then nr2+=15;
  end;
  
 writeln('a)',nr1);
 writeln('b)',nr2);

end.