Gal kas susiduret su algoritmais??? Kuo toliau tuo didesnis miskas man... Gal kas galetu padet ar ant kelio uzvest ??? dekui
Kazkokia pradzia yra bet gal su duomenim supjoviau...
http://img717.imageshack.us/img717/3285/10348007.png

Su integer padariau, tyngiu zaist su dideliais skaiciais... Random parenka nuo 1 iki 100(pagamintu detaliu sk.). Mas1, mas2, mas3 tai kiekvienam cechui priskirtas detaliu kiekis pagal dirbtu dienu skaiciu. Sum1, sum2, sum3 tai detaliu pagamintu per N dienu suma,




program Noname0;
var mas1 : array[1..3000] of integer;  //pirmos imones masyvas
mas2 : array[1..3000] of integer;  //antros imones masyvas
mas3 : array[1..3000] of integer;  //trecios imones masyvas
   n, i, sum1,sum2,sum3, min: integer;


Begin
 writeln('Iveskite dirbtu dienu skaiciu');
read (n); //dienu skaicius
begin
for i := 1 to n do
mas1[i] := random(100);
end;
begin
sum1:=0;
for i := 1 to n do
sum1:=sum1+mas1[i];
end;

begin
for i := 1 to n do
mas2[i] := random(100);
end;
begin
sum2:=0;
for i := 1 to n do
sum2:=sum2+mas2[i];
end;


begin
for i := 1 to n do
mas3[i] := random(100);
end;

 begin
sum3:=0;
for i := 1 to n do
sum3:=sum3+mas3[i];
end;

if sum1<sum2 then
  if sum1<sum3 then
  min:=sum1
    else
  min:=sum3
  else
  if sum2<sum3 then
  min:=sum2
  else min:=sum3;



 writeln('Pirmas cechas pagamino');
  writeln (sum1);
   writeln('Antras cechas pagamino');
   writeln (sum2);
    writeln('Trecias cechas pagamino');
    writeln (sum3);

    if min=sum1 then
  writeln('Maziausiai pagamino pirmas cechas')
    else
    if min=sum2 then
      writeln('Maziausiai pagamino antras cechas')
      else writeln('Maziausiai pagamino trecias cechas');


readln;
readln;

end.