mełgełe

Gość

NIE!!! co ja bede robil w czasie wolnym od tibia jak skasuja to forum!?!??!

Gość

prze*ebane!!
Kur*a lamerzy pieprzeni, nie macie życia normalnego, to psujecie innym!!
ściągnijcie se tibie i zacznijcie czerpac z życia!!
współczuje wam

Gość

wlasnie!!! nie wiecie co to zycie bo nie wiecie co to tibia!

Wysłany: Pon 11:29, 05 Mar 2007

wszystko jak trzeba

program MaxMin_Rekurencja;

type Tablica=array[1..100] of integer;

var x:Tablica;
n,max,min:integer;

procedure Czytaj(n:integer; var x:Tablica);
var i:integer;
begin
for i:=1 to n do
begin
randomize;
x[i]:=random(1000);
writeln(x[i],' ');
end
end;
procedure MaxMinRek(i,j:integer;var max,min:integer);
var k,max1,max2,min1,min2:integer;
begin
if i=j then
begin
max:=i; min:=i end
else
if i+1=j then
if x[i]>=x[j] then
begin max:=i;
min:=j
end
else
begin
max:=j;
min:=i
end
else
begin
k:=(i+j) div 2;
MaxMinRek(i,k,max1,min1);
MaxMinRek(k+1,j,max2,min2);
if x[max1]>=x[max2] then
max:=max1
else
max:=max2;
if x[min1]<=x[min2]
then min:=min1
else min:=min2
end
end;

begin
writeln('Podaj z ilu elementow sklada sie tablica:');
readln(n);
Czytaj(n,x);
MaxMinRek(1,n,max,min);
write('maksimum = ');
writeln(x[max]);
write('minimum = ');
writeln(x[min]);
readln;
readln
end.

Wysłany: Pon 21:59, 05 Mar 2007

Kurde czytając te teksty mam wrażenie że pisała je jedna osoba ale co tam, niezłe teksty. Hrh