Дан вещественный массив А.Составить одномерный массив Б из различных элементов массива А - Pascal ABC - Ответ 13398179

const n=6; 
var
a,b:array[1..n] of real;
k,i,j,x:byte; t:real;
 
begin
  writeln('Заполните массив "А": ');
  for i :=1 to n do
   begin
      write('a[',i,'] = ');
      readln(a[i]);
   end; writeln; 
   
   writeln('Массив "А":');
   
   for i :=1 to n do write(a[i]:2);
 writeln; 
   
   x:=1; j:=1;  t:=a[x]; i:=1;
 
  while i<=n do
   begin
     
      if t<>a[i] then  
       begin
          
       end;
       
   inc(i); 
   inc(x);
   t:=a[x];
   end; writeln;
   
   for i :=1 to n do write(b[i]:2);
 
 end.

const n=6; 
var
a,b:array[1..n] of real;
m,k,j,i:byte; t:real;
begin
  writeln('Заполните массив "А": ');
  for i :=1 to n do
   begin
      write('a[',i,'] = ');
      readln(a[i]);
   end; writeln; 
   
   writeln('Массив "А":');
   
   for i :=1 to n do write(a[i]:2);
   writeln;    writeln;
   i:=2; j:=1; k:=1; m:=0;
   
   
 while i<=n do
    begin
      if a[k]=a[i] then  m:=1;
      i:=i+1;
     if m=0 then 
        begin 
          b[j]:=a[k]; 
          inc(k); 
        end;
    end; 
   
   
   writeln('Массив "B":'); 
   for j :=1 to k do write(b[j]:2);
   writeln;
 
 end.