fork download
copy 
  1. program zaznaczanie_licz_parzystych_w_liscie_z_dod_tablica;
  2. type tab=array[1..10]of integer;
  3.      lst = record
  4.                 elementy: tab;
  5.                 ile: integer
  6.              end;
  7. var
  8.     i: integer;
  9.     x: lst;
  10.     y: array [1..10] of boolean;
  11.  
  12. begin
  13. 	readln(x.ile);
  14. 	for i := 1 to x.ile do
  15. 		read(x.elementy[i]);
  16.  
  17. 	for i := 1 to x.ile do
  18. 		y[i] := x.elementy[i] mod 2 = 0;
  19.  
  20. 	for i := 1 to x.ile do
  21. 		begin
  22. 			if y[i] then writeln(x.elementy[i])
  23. 		end;
  24. end.
Success #stdin #stdout 0.01s 5292KB
comments (?)
stdin
copy 
5
1 2 3 4 5
stdout
copy 
2
4
https://ideone.com/2dXpq0
zaznaczanie elementów w liście przy użyciu dodatkowej tablicy
language:
Pascal (fpc 3.0.4)
created:
8 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!