fork download
copy 
  1. program lista_uproszczona_usun_x_z_listy;
  2. type tab=array[1..10]of integer;
  3.      lst = record
  4.                 elementy: tab;
  5.                 ile: integer
  6.              end;
  7. var
  8.     i, j, wartosc, pozycja: integer;
  9.     x: lst;
  10.     znaleziono: boolean;
  11.  
  12. begin
  13.  
  14.     read(x.ile);
  15.     for i := 1 to x.ile do
  16.         read(x.elementy[i]);
  17.  
  18.     read(wartosc);
  19.  
  20.     znaleziono := false;
  21.     for i := 1 to x.ile do
  22.     begin
  23.         if x.elementy[i] = wartosc then
  24.         begin
  25.             pozycja := i;
  26.             znaleziono := true;
  27.             break;
  28.         end;
  29.     end;
  30.  
  31.     if znaleziono then
  32.     begin
  33.         writeln('Pozycja: ', pozycja);
  34.  
  35.         for i := pozycja to x.ile-1 do
  36.             x.elementy[i] := x.elementy[i+1];
  37.  
  38.         x.ile := x.ile - 1;
  39.     end
  40.     else
  41.         writeln('Nie znaleziono wartości ', wartosc);
  42.  
  43.  
  44.     for i := 1 to x.ile do
  45.         write(x.elementy[i], ' ');
  46. end.
Success #stdin #stdout 0s 5272KB
comments (?)
stdin
copy 
5 10 20 30 40 50 50
stdout
copy 
Pozycja: 5
10 20 30 40
https://ideone.com/gSg5yx
language:
Pascal (fpc 3.0.4)
created:
18 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!