fork download
copy 
  1. program SumPositive;
  2. var
  3.   a: array[1..10] of integer;
  4.   i, s: integer;
  5. begin
  6.   s := 0;
  7.   writeln('Введите 10 чисел:');
  8.   for i := 1 to 10 do
  9.     read(a[i]);
  10.  
  11.   for i := 1 to 10 do
  12.     if a[i] > 0 then
  13.       s := s + a[i];
  14.  
  15.   writeln('Сумма положительных: ', s);
  16. end.
Success #stdin #stdout 0s 5316KB
comments (?)
stdin
copy 
-3 5 -1 2 0 7 -4 6 -2 1
stdout
copy 
Введите 10 чисел:
Сумма положительных: 21
https://ideone.com/klpkI3
language:
Pascal (fpc 3.0.4)
created:
1 day 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!