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.      (*wczytaj listę*)
  14.      x.ile := 0;
  15.      for i := 1 to 10 do
  16.      begin
  17.         if eof then
  18.            break;
  19.         read(x.elementy[i]);
  20.         x.ile := x.ile + 1;
  21.      end;
  22.  
  23.      (*zaznacz liczby parzyste wypełniajac pole y[i] tablicy y wartością "true", gdy w liście x na pozycji i znajduje się liczba parzysta*)
  24.      for i := 1 to x.ile do
  25.         if x.elementy[i] mod 2 = 0 then
  26.            y[i] := true
  27.         else
  28.            y[i] := false;
  29.  
  30.      (*wypisz liczby parzyste posługując się zaznaczniami w tablicy y*)
  31.      for i := 1 to x.ile do
  32.         if y[i] then
  33.            write(x.elementy[i], ' ');
  34. end.
Success #stdin #stdout 0s 5284KB
comments (?)
stdin
copy 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
stdout
copy 
2 4 6 8 10
https://ideone.com/QU5qhA
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!