logó ISKOLAI TEHETSÉGGONDOZÁS
Tesztek, feladatok, hírek, információk
visszaVISSZA   
menüMENÜ   
ismétISMÉT   

P: Keresés


Egészítse ki a feladatnak megfelelően a programot!




A program jelenítse meg a keresett szám tömbindexét!



program Kereses;
var
    tomb : array [1..5] of integer = (3, 9, 3, 2, 6);
    keresett : integer;
    i, n : integer;
begin
    keresett := 3;
    := 5;
    := 1;
    while ( <= n) and ( <> keresett) do
       i := i + 1;
    if i <= then
    begin
       WriteLn('Van ilyen');
       WriteLn('Indexe: ', i);
   
    else
       WriteLn('Nincs ilyen ertek');
    ReadLn();
end.




Ahogy a legtöbb honlap, ez a webhely is használ sütiket a weboldalain.