fork download
copy 
  1. program ideone;
  2. var
  3.     arr: array of array of Integer;
  4.     sum_below_zero, sum_above_zero, cnt_even, cnt_odd, n, m, i, j: Integer;
  5. begin
  6. 	WriteLn('Введите n');
  7. 	ReadLn(n);
  8. 	WriteLn('Введите m');
  9. 	ReadLn(m);
  10. 	SetLength(arr, n);
  11. 	Randomize;
  12. 	for i := 1 to n do begin
  13. 	  SetLength(arr[i], m);
  14. 	  for j := 1 to m do begin
  15. 	  	arr[i, j] := Random(200) - 100;
  16. 	  	Write(arr[i, j], ' ');
  17. 	  	if arr[i, j] < 0 then
  18. 	  		sum_below_zero := sum_below_zero + arr[i, j]
  19. 	  	else begin
  20. 	  	    if arr[i, j] mod 2 = 0 then
  21. 	  	        cnt_even := cnt_even + 1
  22. 	  	    else begin
  23. 	  	        cnt_even := cnt_even + 1;
  24. 	  	        sum_above_zero := sum_above_zero + arr[i, j];
  25. 	  	    end;
  26. 	  	end;
  27. 	  end;
  28. 	  WriteLn;
  29. 	end;
  30. 	WriteLn(#13, sum_below_zero, ' ', sum_above_zero, ' ', cnt_even, ' ', cnt_odd)
  31. end.
Success #stdin #stdout 0s 264KB
comments (?)
stdin
copy 
3
4
stdout
copy 
Введите n
Введите m
-33 80 -86 -72 
-53 54 -12 -12 
2 -78 13 -25 

-371 13 4 0
https://ideone.com/2nY8Er
language:
Pascal (fpc 3.0.4)
created:
11 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!