Автор: Bronislav

Bronislav — Sat, 11 Aug 2018 00:12:21 +0000

program Array_100;//fpc

var
  a: array [1..10] of integer;
  i, j, k, n, Count, temp: integer;

begin
  n := 10;
  
  Randomize;
  
  for i := 1 to n do a[i] := Random(10);
  for i := 1 to n do Write(a[i], ' '); Writeln;

  k := 1;

  for i := 1 to n do
  begin
    Count := 0;
    for j := k to n do
      if a[j] = a[i] then Inc(Count);
    if Count <> 2 then
    begin
      temp := a[k];
      a[k] := a[i];
      a[i] := temp;
      Inc(k);
    end;
  end;

  Writeln('размер массива: ', k - 1);
  for i := 1 to k - 1 do Write(a[i], ' ');
  Readln;
end.

program Array_100;//fpc

var

a: array [1..10] of integer;

i, j, k, n, Count, temp: integer;

begin

n := 10;

Randomize;

for i := 1 to n do a[i] := Random(10);

for i := 1 to n do Write(a[i], ' '); Writeln;

k := 1;

for i := 1 to n do

begin

Count := 0;

for j := k to n do

if a[j] = a[i] then Inc(Count);

if Count <> 2 then

begin

temp := a[k];

a[k] := a[i];

a[i] := temp;

Inc(k);

end;

Writeln('размер массива: ', k - 1);

for i := 1 to k - 1 do Write(a[i], ' ');

Readln;

end.

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

Автор: Bronislav