fork(1) download
copy 
  1. program plot;
  2.  var
  3.   i,j,n,d,suma,liczba:integer;
  4.   min:longint;
  5.  Begin
  6.   readln(d);
  7.   min:=100001; {o 1 wiecej niz maks}
  8.   for i:=1 to d do
  9.    begin
  10.    read(n); 
  11.    suma:=0;
  12.     for j:=1 to n do 
  13.      begin 
  14.      read(liczba);
  15.      suma:=suma+liczba;
  16.      end;
  17.    if suma < min then
  18.     min:=suma;
  19.    end;
  20.  writeln(min);
  21.  end.
Success #stdin #stdout 0.01s 208KB
comments (?)
stdin
copy 
3
3 6 7 8
4 2 2 2 2
5 1 1 1 2 1
stdout
copy 
6
https://ideone.com/NbaE2
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!