Kód: Vybrať všetko

Kód: Vybrať všetko

 daj pred "Vytvorte" alebo to celé označ a ťukni CODE.

Kód: Vybrať všetko

program PREPIS_POLA;
uses Crt;
var
  p,x,a: Integer;
  poleA,poleB: array [1..20] of Integer;

BEGIN
  ClrScr;
  Write ('Zadajte pocet prvkov: ');
  ReadLn(p);
  WriteLn ('Zadajte prvky prveho pola:');
  for x:=1 to p do begin
    Write ('Zadajte prvok c.',x,'.:');
    ReadLn(poleA[x]);
  end;
  WriteLn ('Zadajte prvky druheho pola:');
  for x:=1 to p do begin
    Write ('Zadajte prvok c.',x,'.:');
    ReadLn(poleB[x]);
  end;
  ClrScr;
  a:=0;
  for x:=1 to p do
    if poleA[x] <> poleB[x] then
      poleB[x-a] := poleA[x]
    else
      inc (a);
  for :=1 to p-a do Write (poleB[x],',');

END.

Kód: Vybrať všetko

uses crt;
var a,b:array[1..100]of integer;
x,y,z:integer;
begin
clrscr;
randomize;
for x:=1 to 10 do
begin;
a[x]:=random(5)+1;
write(a[x]);
end;
writeln;
for x:=1 to 10 do
for y:=x+1 to 10 do
if a[x]=a[y] then a[y]:=0;
for x:=1 to 10 do
if a[x]=0 then else begin
inc(z);
b[z]:=a[x];
end;
for x:=1 to z do
write(b[x]);
readln;
end.

Kód: Vybrať všetko

program PREPIS_POLA;
uses Crt;
const
  max = 10;
var
  pozicia,prvkov,x,y: Integer;
  poleA,poleB: array [1..max] of Integer;
  zapis: Boolean;

BEGIN
  ClrScr;
  Randomize;
  Write ('Zadajte pocet prvkov: ');
  ReadLn(prvkov);
  pozicia:=1;
  for x := 1 to prvkov do begin
    poleA[x] := Random(10)+1;
    Write(poleA[x],',');
  end;
  poleB[1] := poleA[1];
  for x := 2 to prvkov do begin
    zapis := True;
    for y := 1 to pozicia do
      if poleB[y] = poleA[x] then begin
        zapis := False;
        break;
      end;
    if zapis = true then begin
      poleB[pozicia+1] := poleA[x];
      inc(pozicia);
    end;
  end;
  WriteLn;
  for x := 1 to pozicia do Write (poleB[x],',');
  ReadLn;

END.