Kod: Zaznacz cały
program war;
const
n=10;
var
T:array[1..n] of integer;
i,r,druga,trzecia:integer;
tak,wynik:boolean;
begin
randomize;
for i:=1 to n do
begin
r:=random(10)+1;
T[i]:=r;
end;
for i:=1 to n do
writeln(T[i]);
writeln();
//rozwiazanie
i:=1;
druga:=2;
trzecia:=3;
tak:=false;
while i<=n-3 do
begin
druga:=i+1;
trzecia:=i+2;
while (i<druga) and (druga<trzecia) and (trzecia<=n) do
begin
if (abs(druga-trzecia)<i) and (i<druga+trzecia) then
tak:=true;
if tak=false then
wynik:=tak;
druga:=druga+1;
trzecia:=trzecia+1;
end;
i:=i+1;
end;
writeln(wynik);
end.