program seiriaki_anazitisi;
var
i,counter,x:integer;
A:array[1..5] of integer;
to_vrika:boolean;
begin
for i:=1 to 5 do {ΜΕ ΑΥΤΉ ΤΗ FOR ΓΕΜΙΖΩ ΕΝΑΝ ΠΙΝΑΚΑ ΜΕ ΣΤΟΙΧΕΙΑ}
begin
readln(A[i]);
end
;
writeln();
writeln('Δώσε έναν αριθμό να σου πώ σε ποιά θέση βρίσκεται');
readln(x);{ΕΙΣΑΓΩ ΕΝΑΝ ΑΡΙΘΜΟ ΑΠΟ ΤΟ ΠΛΗΚΤΡΟΛΟΓΙΟ}
{ΤΩΡΑ ΘΑ ΨΑΞΩ ΝΑ ΤΟΝ ΒΡΩ ΣΕ ΠΟΙΕΣ ΘΕΣΕΙΣ ΑΥΤΟΣ ΒΡΙΣΚΕΤΑΙ....ΑΝ ΥΠΑΡΧΕΙ.
ΑΝ ΔΕΝ ΥΠΑΡΧΕΙ ΘΑ ΒΓΑΛΩ ΜΗΝΥΜΑ ΟΤΙ ΚΑΙ ΚΑΛΑ ΔΕΝ ΤΟΝ ΒΡΗΚΑ ΠΟΥΘΕΝΑ - ΣΕΙΡΙΑΚΗ ΑΝΑΖΗΤΗΣΗ}
counter:=0; {ΕΝΑΣ ΜΕΤΡΗΤΗΣ ΠΟΥ ΜΟΥ ΔΕΙΧΝΕΙ ΠΟΣΕΣ ΦΟΡΕΣ ΒΡΗΚΑ ΤΟ ΣΤΟΙΧΕΙΟ
ΠΟΥ ΨΑΧΝΩ, ΑΝ ΤΟ ΒΡΗΚΑ}
to_vrika:=false;
for i:=1 to 5 do
begin
if x = A[i] then
begin
to_vrika:=true;
writeln('Το στοιχείο που ψάχνεις βρέθηκε στη θέση ',i);
counter:= counter + 1;
end
;
end
;
if to_vrika = false then
begin
writeln('Το στοιχείο που ψάχνεις δεν βρέθηκε πουθενά');
end
else
begin
writeln('Το στοιχείο που ψάχνεις βρέθηκε ',counter, ' φορές');
end
;
end.
var
i,counter,x:integer;
A:array[1..5] of integer;
to_vrika:boolean;
begin
for i:=1 to 5 do {ΜΕ ΑΥΤΉ ΤΗ FOR ΓΕΜΙΖΩ ΕΝΑΝ ΠΙΝΑΚΑ ΜΕ ΣΤΟΙΧΕΙΑ}
begin
readln(A[i]);
end
;
writeln();
writeln('Δώσε έναν αριθμό να σου πώ σε ποιά θέση βρίσκεται');
readln(x);{ΕΙΣΑΓΩ ΕΝΑΝ ΑΡΙΘΜΟ ΑΠΟ ΤΟ ΠΛΗΚΤΡΟΛΟΓΙΟ}
{ΤΩΡΑ ΘΑ ΨΑΞΩ ΝΑ ΤΟΝ ΒΡΩ ΣΕ ΠΟΙΕΣ ΘΕΣΕΙΣ ΑΥΤΟΣ ΒΡΙΣΚΕΤΑΙ....ΑΝ ΥΠΑΡΧΕΙ.
ΑΝ ΔΕΝ ΥΠΑΡΧΕΙ ΘΑ ΒΓΑΛΩ ΜΗΝΥΜΑ ΟΤΙ ΚΑΙ ΚΑΛΑ ΔΕΝ ΤΟΝ ΒΡΗΚΑ ΠΟΥΘΕΝΑ - ΣΕΙΡΙΑΚΗ ΑΝΑΖΗΤΗΣΗ}
counter:=0; {ΕΝΑΣ ΜΕΤΡΗΤΗΣ ΠΟΥ ΜΟΥ ΔΕΙΧΝΕΙ ΠΟΣΕΣ ΦΟΡΕΣ ΒΡΗΚΑ ΤΟ ΣΤΟΙΧΕΙΟ
ΠΟΥ ΨΑΧΝΩ, ΑΝ ΤΟ ΒΡΗΚΑ}
to_vrika:=false;
for i:=1 to 5 do
begin
if x = A[i] then
begin
to_vrika:=true;
writeln('Το στοιχείο που ψάχνεις βρέθηκε στη θέση ',i);
counter:= counter + 1;
end
;
end
;
if to_vrika = false then
begin
writeln('Το στοιχείο που ψάχνεις δεν βρέθηκε πουθενά');
end
else
begin
writeln('Το στοιχείο που ψάχνεις βρέθηκε ',counter, ' φορές');
end
;
end.
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου