fork download
copy 
  1. program zaznaczanie_licz_parzystych_w_liscie;
  2. type elem=record
  3.                 data: integer;   
  4.                 isParzysta: boolean 
  5.          end;
  6.  
  7.      tab=array[1..10]of elem;    
  8.  
  9.      lst = record                 
  10.                 elementy: tab;  
  11.                 ile: integer
  12.              end;
  13. var
  14.     i, count: integer;        
  15.     x: lst;  
  16.  
  17. begin
  18.    x.ile := 0;
  19.    i := 1;
  20.  
  21.    while not eof do
  22.    begin
  23.      read(x.elementy[i].data);
  24.      x.elementy[i].isParzysta := false;
  25.      i := i + 1;
  26.      x.ile := x.ile + 1;
  27.  
  28.      if i > 10 then
  29.        break;
  30.    end;
  31.  
  32.   for i := 1 to x.ile do
  33.   begin
  34.     if x.elementy[i].data mod 2 = 0 then
  35.       x.elementy[i].isParzysta := true;
  36.   end;
  37.  
  38.    for i := 1 to x.ile do
  39.    begin
  40.      if x.elementy[i].isParzysta then
  41.        writeln(x.elementy[i].data);
  42.    end;
  43.  
  44. end.
Success #stdin #stdout 0s 5288KB
comments (?)
stdin
copy 
2 2 3 4 5
stdout
copy 
2
2
4
https://ideone.com/y59ILS
language:
Pascal (fpc 3.0.4)
created:
19 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!