Автор: Bronislav

Bronislav — Mon, 23 Jul 2018 08:22:23 +0000

program array_43;//pascalABC.net

begin
  var n := 10;
  var a := ArrRandom(n, 0, 9); Sort(a); a.Println;
  var count := 0;
  var i := 0;
  var j := 1;
  
  while i <= a.High do
  begin
    count += 1;
    while j <= a.High do
    begin
      if a[i] = a[j] then begin i := j; j += 1 end
      else begin j += 1; break end;
    end;
    i += 1
  end;
  
  Print(count)
end.

program array_43;//pascalABC.net

begin

var n := 10;

var a := ArrRandom(n, 0, 9); Sort(a); a.Println;

var count := 0;

var i := 0;

var j := 1;

while i <= a.High do

begin

count += 1;

while j <= a.High do

begin

if a[i] = a[j] then begin i := j; j += 1 end

else begin j += 1; break end;

end;

i += 1

end;

Print(count)

end.

Комментарии: Решаем задачи Абрамян на Паскале. Array43

Автор: Bronislav