Merhaba benim bir ödevim var pascalda yazmam gerekiyor yazdım da..Ancak derleyici hata veriyo hem de saçma sapan bir yerde bir sürü kişiye sordum kimse anlamadı.Anlayan biri cevap verirse çok iyi olur.Hemen bugün düzeltmem lazım. :(
program bbg(input,output);
var
i,x,n,y:integer;
B,min,max:array[1..100] of integer;
begin
writeln('dizinin eleman sayisini girin.(en az 3 elemanlı olmalıdır)');
readln(n);
for i:=1 to n do
begin
writeln(i,'. elemani girin.');
readln(B)
end;
begin
if(B[1]>B[2])
then
max[1]:=B[1];
x:=0;
y:=1;
for i:=1 to n-2 do
begin
if(B[i+1] and B[i+1]>B[i+2])
then
x:=x+1;
B[i+1]:=min[x]
end;
for i:=1 to n-2 do
begin
if(B[i+1]>B and B[i+1]>B[i+2])
then
y:=y+1;
B[i+1]:=max[y]
end
else
min[1]:=B[1];
x:=0;
y:=0;
for i:=1 to n-2 do
begin
if(B[i+1]>B and B[i+1]>B[i+2])
then
y:=y+1;
B[i+1]:=max[y]
end;
for i:=1 to n-2 do
begin
if(B[i+1] and B[i+1] then
x:=x+1;
B[i+1]:=min[x]
end;
end;
writeln('minumum noktalari:' min[x] ', maximum noktalari:' max[y]);
readln;
end.
Kırmızıyla yazılı 'else' kodu için yanlış diyor.