Kód: Vybrať všetko

uses crt;
var x,i,j,k:integer;
    a:array[-50..50] of integer;
begin
     clrscr;
     randomize;

     for i:=1 to 30 do begin
                        x:=random(100)-50;
                        write(x,', ');
                        a[i]:=x;
                       end;

     gotoxy(1,4);
     write('Kladne cisla: ');
     for j:=1 to 30 do begin
                        if(a[j]>=0) then write(a[j],'(',sqrt(a[j]):1:3,'), ');

                       end;

     gotoxy(1,9);
     write('Zaporne cisla: ');
     for k:=1 to 30 do begin
                        if(a[k]<0) then write(a[k],'(|',a[k]-a[k]-a[k],'|), ');
                       end;



     readkey;
end.

Kód: Vybrať všetko

uses crt;
const n=30;
var i,y,x:integer;a:array[1..n] of integer;
procedure generuj;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(41)-20;
write(a[i],' ');
end;
end;
procedure kladne;
begin
for i:=1 to n do if a[i]>0 then write (a[i]:5);
end;
procedure ukladne;
begin
for i:=1 to n do
begin
if a[i]>0 then
begin
x:=2*a[i];
write(x,' ');
end;
end;
end;
procedure zaporne;
begin
for i:=1 to n do if a[i]<0 then write (a[i]:5);
end;
procedure uzaporne;
begin
for i:=1 to n do
begin
f a[i]<0 then
begin
y:=abs(a[i]);
write(y,' ');
end;
end;
end;
begin
textcolor(15);
write('Vygenerovane cisla su: ');generuj;writeln;readln;
textcolor(15);
write('Kladne cisla su: ');kladne;writeln;
readln;
textcolor(15);
write('Zaporne cisla su: ');zaporne;writeln;
readln;
textcolor(15);
write('Odmocniny kladnych cisiel su: ');ukladne;writeln;
readln;
textcolor(15);
write('Absolutne hodnoty zapornych cisiel su: ');textcolor(12);uzaporne;writeln;
readln;
end.

Kód: Vybrať všetko

uses crt; 
const n=30; 
var i,y:integer;a:array[1..n] of integer;
procedure generuj; 
begin 
randomize; 
for i:=1 to n do 
begin 
a[i]:=random(101)-50;
write(a[i],' '); 
end; 
end; 
procedure kladne; 
begin 
for i:=1 to n do if a[i]>0 then write (a[i]:5); 
end; 
procedure ukladne; 
begin 
for i:=1 to n do 
begin 
if a[i]>0 then 
begin 
write(sqrt(a[i]):3:3,' ');
end; 
end; 
end; 
procedure zaporne; 
begin 
for i:=1 to n do if a[i]<0 then write (a[i]:5); 
end; 
procedure uzaporne; 
begin 
for i:=1 to n do 
begin 
if a[i]<0 then
begin 
y:=abs(a[i]); 
write(y,' '); 
end; 
end; 
end; 
begin 
textcolor(15); 
write('Vygenerovane cisla su: ');generuj;writeln;readln; 
textcolor(15); 
write('Kladne cisla su: ');kladne;writeln; 
readln; 
textcolor(15); 
write('Zaporne cisla su: ');zaporne;writeln; 
readln; 
textcolor(15); 
write('Odmocniny kladnych cisiel su: ');ukladne;writeln; 
readln; 
textcolor(15); 
write('Absolutne hodnoty zapornych cisiel su: ');textcolor(12);uzaporne;writeln; 
readln; 
end.