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, k: integer;
  9.     x: lst;
  10.  
  11. begin
  12.     readln(x.ile);
  13.     for i := 1 to x.ile do
  14.     	read(x.elementy[i]);
  15.     readln(j);
  16.  
  17.     i := 1;
  18.     while i <= x.ile do
  19.     	if x.elementy[i] = j then
  20.     		begin
  21.     			writeln(i);
  22.     			for k := i to x.ile - 1 do
  23.     				x.elementy[k] := x.elementy[k + 1];
  24.     			x.ile := x.ile - 1;
  25.     		end
  26.     	else 
  27.     	 i := i + 1;
  28.  
  29.  
  30.     for i := 1 to x.ile do
  31.     	write(x.elementy[i], ' ');
  32. end.
Success #stdin #stdout 0s 5312KB
comments (?)
stdin
copy 
2
1 3 3
3
stdout
copy 
2
1
https://ideone.com/hXWER8
Lista uproszczona - usuń x z listy (wcześniej wypisz jego pozycję)
language:
Pascal (fpc 3.0.4)
created:
2 days 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!