Pereiti prie turinio

Pauza

Patvirtinti nariai
  • Pranešimai

    1.438
  • Užsiregistravo

  • Lankėsi

  • Atsiliepimai

    100%

Pauza Pranešimai

  1. Sveiki. Taigi darau informatikos namų darbus ir nelabia išeina viena užduotis... Gal kas gali padėti?

    Užduotis: "Iš masyvo n elemntų pasalinti k vietoje esantį elementą ir tą masyvą atspausdinti" Pvz: skaičiai 1,4,6,8. K=2. Tai masyvą turėtų atspausdinti taip: 1,6,8.

     

    Bandžiau pats rašyti, nelabai išėjo :/

     

    program nekenciu_masyvu;
    Uses Crt;
    Type
    Mas = array [1..999] of integer;
     Var
     A: Mas;
     i, k, sk: integer; //sk- masyvo skaičiai
      Begin
      WriteLn('Įrašykite k narį');
      Read(k);
      Read(sk);
      While sk<>0do
       Begin
       A[i]:=i;
       if i<>k then write ( A[i],'  ');
       end;
       ReadLn;
       ReadLn;
       End.

  2. Žodžiu prasidėjo mergaitei pirmosios mėnesinės.. Pasimetė mergaitė, nežino ką daryt... Nubėga mergaitė pas tėtį, sako:

    - Tėti, tėti, gelbėk... Man bėga kraujas..

    - Iš kur? - klausia tėtis.

    - Iš ten (rodo į apačia).

    - Hmm.. eik pas mama ji tau paaiškins... - išraudęs atsakė tėtis.

    Mergaitė nulekia i virtuvę, ten mama verda burokėlių sriubą. Sako:

    - Mama, gal tu žinai, kas man yra, man bėga kraujas iš ten...

    - Iš kur?

    - Nu iš ten (vėl rodo į apačią)

    - Ai žinok neturiu dabar laiko, vėliau vakare paaiškinsiu... - atsakė mama.

    Mergaite pasimetusi, taip ir negavusi atsakymo nueina į svetainę. Žiūri mažasis broliukas ten žaidžia. Sako:

    - Broliuk gal tu žinai kas čia man yra. Man bėga kraujas iš ten...

    - Iš kur?

    - Nu iš va ten..(rodo į apačią.)

    - Eikš pažiūrėsiu - atsako broliukas. Žiūri minutę ,dvi... ir tada sako:

    - Nu žinai aš ne ekspertas , bet man atrodo tau ######s nuplyšo...

×
×
  • Pasirinkite naujai kuriamo turinio tipą...