Kód: Vybrať všetko

var
pole: array  [1..100] of integer;
a,b,n:integer;

Begin

writeln('Kolko prvkove pole bude');
Readln(n);
Randomize;

 For a:=1 to n do
   Begin pole[a] := random (100)  End;

 For b:=1 to n do
  Begin write(pole[b],' ') End;



 readln;
End.

Kód: Vybrať všetko

var
retazec: string;
I:integer;

begin
readln(retazec);

for I:=1 to length(retazec) do
begin
     if ((ord(retazec[i]) - ord('0')) mod 2 = 0) then
        writeln(I, '. cislo (', retazec[i], ') je parne')
     else
        writeln(I, '. cislo (', retazec[i], ') je neparne');

end;

readln;
end.

Kód: Vybrať všetko

program tajtrlo1;

var kod,i,cislo: integer;
s: string;
parne, neparne: array[1..255] of byte;

BEGIN
write('Zadaj string: ');
readln(s);
for i := 1 to 255 do begin
Val(s[i],cislo,kod);
if (cislo mod 2) = 0 then parne[i] := cislo else neparne[i] := cislo;
end;
Writeln;
Write('parne: ');
for i := 1 to 255 do begin
Str(parne[i],s);
if s <> '0' then Write(s);
end;
Writeln;
Write('neparne: ');
for i := 1 to 255 do begin
Str(neparne[i],s);
if s <> '0' then Write(s);
end;
writeln;
asm xor ax,ax
int 16h end;
END.

Kód: Vybrať všetko

program tajtrlo2;

var i,j,k,l,kod: integer;
s: string;
priemer: real;

BEGIN
write('Zadaj 50 cisel na a. priemer, pre menej zadaj zaporne: ');
readln(s);
for i := 1 to 50 do begin
inc(l);
if s[i] = '-' then begin
Val(s[i+1],j,kod);
(* ak chces, aby to zadane zaporne cislo zaratavalo ako KLADNE, nasledujuci riadok VYMAZ! *)
j := j * (-1); (* tento ... *)
k := k + j;
break;
end else Val(s[i],j,kod);
k := k + j;
end;
priemer := k / l;
Writeln;
Writeln('Aritmeticky priemer ',l,' cisel je: ', priemer:5:3);
readln;
end.

Kód: Vybrať všetko

uses crt;
var
pole,parne,neparne: array  [1..100] of integer;
i,a,b,n:integer;

Begin
clrscr;
textcolor(7);
write('Kolko prvkove pole bude ');
Readln(n);
writeln('');
Randomize;

 For i:=1 to n do
   Begin pole[i] := random (100)  End;

 For i:=1 to n do
  Begin write(pole[i],' ') End;
  writeln('');
  writeln('');

 for i:=1 to n do
 begin
 if ( round(pole[i]/2) = pole[i]/2 )
  then
    parne[i] := (pole[i])
  else
    neparne[i] := (pole[i])
 end;

write ('neparne cisla: ');
 for i:=1 to 100 do
  begin
  if neparne[i] <> 0 then
  begin
   textcolor(green);
   write(neparne[i],',');
  end;
  end;

writeln('');

textcolor(7);
write ('parne cisla: ');
 for i:=1 to 100 do
  begin
  if parne[i] <> 0 then
  begin
   textcolor(red);
   write(parne[i],',');
  end;
  end;


 readln;
End.

Kód: Vybrať všetko

uses crt;
var
pole,parne,neparne: array  [1..100] of integer;
i,a,b,n:integer;

Begin
clrscr;
textcolor(7);
write('Kolko prvkove pole bude ');
Readln(n);
writeln('');
Randomize;

 For i:=1 to n do
   Begin pole[i] := random (100)  End;

 For i:=1 to n do
  Begin write(pole[i],' ') End;
  writeln('');
  writeln('');

 for i:=1 to n do
 begin
 if ((ord(retazec[i]) - ord('0')) mod 2 = 0)
  then
    parne[i] := (pole[i])
  else
    neparne[i] := (pole[i])
 end;

write ('neparne cisla: ');
 for i:=1 to 20 do
  begin
  if neparne[i] <> 0 then
  begin
   textcolor(green);
   write(neparne[i],',');
  end;
  end;

writeln('');

textcolor(7);
write ('parne cisla: ');
 for i:=1 to 20 do
  begin
  if parne[i] <> 0 then
  begin
   textcolor(red);
   write(parne[i],',');
  end;
  end;


 readln;
End.

Kód: Vybrať všetko

var
pole: array [0..255] of integer;
a,i:integer;
begin
readln(a);
for i:=1 to a do
write(#pole(i));
end.