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