fork download
copy 
  1. program megszamlalas;
  2. const n = 10;
  3. var a:array [1..n] of integer;
  4.     i, db: integer;
  5. begin
  6.   randomize;
  7.   //a tömb elkészítése
  8.   for i:=1 to n do
  9.   begin
  10.     a[i]:=random(8);
  11.     write(a[i], ' ');
  12.   end;
  13.   writeln;
  14.   //hány db 5-os van benne?
  15.   for i:=1 to n do
  16.     if a[i]=5 then
  17.       db:=db+1;
  18.   write( db, ' darab 5-os van a tombben.');
  19.   readln;
  20. end.
Success #stdin #stdout 0s 9136KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
3 5 6 2 5 3 7 5 3 5 
4 darab 5-os van a tombben.
https://ideone.com/XXMbAJ
language:
Pascal (gpc 20070904)
created:
6 years 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!