fork download
copy 
  1. const N = 12;
  2.  
  3. var i, k: integer;
  4. var a: array[1..N] of real;
  5.  
  6. begin
  7.     k := 0;
  8.     for i := 1 to N do begin
  9.         read(a[i]);
  10.         k += ord(odd(i) and (5.1 <= a[i]) and (a[i] <= 32.4));
  11.     end;
  12.     writeln(k);
  13. end.
Success #stdin #stdout 0.01s 5284KB
comments (?)
stdin
copy 
8.3 76.7 15.3 58.9 8.7 1 16 0.1 66 94.1 75.9 52.5
stdout
copy 
4
https://ideone.com/1Z6q4j
language:
Pascal (fpc 3.0.4)
created:
21 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!