fork download
copy 
  1. program vladik;
  2. var
  3. a:array[1..5,1..5] of real;
  4. i,j,n:integer;
  5. k:real;
  6. begin
  7. readln(n);
  8.           for i:=1 to n do
  9.            for j:=1 to n do
  10.             readln(a[i,j]);
  11. k:=1;
  12.      for i:=1 to n do
  13.       for j:=1 to n do
  14. if (a[i,j]<>0) and (i<=j) then
  15.    k:=k*a[i,j];
  16. writeln('Произведение ',k);
  17. end.
Success #stdin #stdout 0.01s 5312KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Произведение  1.0000000000000000E+000
https://ideone.com/3CSwqP
language:
Pascal (fpc 3.0.4)
created:
2 days 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!