Pagalbos

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.

Nelabai pagaunu ar supranti ką tu čia rašai?

Nelabai. Tie masyvai sunkiai įkandami man...

Programa turetu atrodyti mazdaug taip jei dar reikia:

program nekenciu_masyvu;
Type Mas = array [1..999] of integer;
 Var
 A: Mas;
 i, k, n: integer;
  Begin
  WriteLn('Irasykite  masyvo elementu kieki ir elemento kuri noresite pasalinti eiles numeri:  ');
Readln(n,k);
  Writeln('Dabar iveskite ',n,' masyvo elementu');
  for i:=1 to n do
  readln(A[i]);  	//iraso i masyva elementus

  for i:=k to n-1 do   //istrina masyvos k-ji elementa
  A[i]:=A[i+1];

  Writeln('');     	//isveda reiksmes
  for i:=1 to n-1 do
  Writeln(A[i]);

ReadLn;
End.