fork download
copy 
  1. program avg;
  2. var counter:integer;
  3. a,total_a,average:real;
  4. begin
  5. For counter := 1 to 5 do
  6. begin
  7. writeln ('Enter all 5 weights');
  8. readln(a);
  9. total_a:=total_a + a;
  10. end;
  11. average:=total_a/counter;
  12. writeln (average :1:2);
  13. end.
Success #stdin #stdout 0s 328KB
comments (?)
stdin
copy 
10
30
21
69
11
stdout
copy 
Enter all 5 weights
Enter all 5 weights
Enter all 5 weights
Enter all 5 weights
Enter all 5 weights
28.20
https://ideone.com/DdI6On
language:
Pascal (fpc 3.0.4)
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!