Jater

Elena_array

Dec 24th, 2012
118
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. {Дан целочисленный массив размерности n.
  2. "Сожмите" массив, выбросив из него каждый второй элемент.
  3. (Примечание: Дополнительный массив не использовать.)}
  4. var
  5.     a:array[1..100]of integer;
  6.     n,s,c,i,j:integer;
  7. begin
  8.     randomize;
  9.     Write('Vvedite razmer massiva: ');
  10.     ReadLN(n);
  11.     for i:=1 to n do
  12.         a[i]:=random(n);
  13.     writeLN('Massiv do udalenia chetnyh elementov:');
  14.     for i:=1 to n do
  15.         write(a[i]:3);
  16.     writeln;
  17.     for i:=2 to n-1 do
  18.         a[i]:=a[i*2-1];
  19.     writeLN('Massiv posle udalenia chetnyh elementov:');
  20.     if (n mod 2)<>0 then
  21.         begin
  22.         n:=n+1;
  23.         n:=n div 2;
  24.         end
  25.     else
  26.         n:=n div 2;
  27.     for i:=1 to n do
  28.         write(a[i]:3);
  29.     readln;
  30. End.
RAW Paste Data