fork download
copy 
  1.     program ideone;
  2.     var 
  3.     product, min : real;
  4.     N, i, k : integer;
  5.     data : array [1..10000] of real;
  6.     begin
  7.     	min:=1000000;
  8.     	product:=1;
  9.     	readln(N);
  10.     	for i:=1 to N do 
  11.     		readln(data[i]);
  12.     	for i:=1 to (N-6) do 
  13.     		begin
  14.     		for k:=i to N-6 do begin
  15.     			product:=(data[i])*(data[i+6]);
  16.     			if (product<min) then min:=product;
  17.     		end;
  18.     	end;
  19.     	writeln(Trunc(min));
  20.     end.
Success #stdin #stdout 0s 9216KB
comments (?)
stdin
copy 
11
12
45
5
4
25
23
21
20
10
12
26
stdout
copy 
48
https://ideone.com/4JEKAo
language:
Pascal (gpc 20070904)
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!