fork download
copy 
  1. program zaznaczanie_licz_parzystych_w_liscie;
  2. type elem=record
  3.  
  4.                     data: integer;
  5.  
  6.                     labe: boolean
  7.  
  8.                 end;
  9.  
  10.      tab=array[1..10]of elem;
  11.  
  12.      lst = record
  13.                 elementy: tab;
  14.                 ile: integer
  15.              end;
  16. var
  17.     i: integer;
  18.     x: lst;
  19.  
  20. begin
  21.  
  22.    writeln('poczatek');
  23.     read(x.ile); writeln(x.ile);
  24.     readln;
  25.     for i:= 1 to x.ile do
  26.     	begin
  27.     	read(x.elementy[i].data);
  28.     	if (x.elementy[i].data mod 2 = 0) then x.elementy[i].labe := true
  29.     	(*zaznacz liczby parzyste wypełniajac pole label dla liczb parzystych wartością "true"*)
  30.     	else x.elementy[i].labe := false;
  31.     	end;
  32.     for i:= 1 to x.ile do 
  33.     	if x.elementy[i].labe then write(x.elementy[i].data, '  ')
  34. 	(*wypisz liczby parzyste posługując się zaznaczeniami*)
  35.  
  36.  
  37.  
  38.  
  39.  
  40. end.
Success #stdin #stdout 0s 5288KB
comments (?)
stdin
copy 
5
7 8 4 9 4
stdout
copy 
poczatek
5
8  4  4
https://ideone.com/eAGexL
language:
Pascal (fpc 3.0.4)
created:
20 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!