1# Zbir i prosek prvih 100 brojeva

program zbir_brojeva_do_1000;
uses crt;
 var
   i:integer; // brojac
   suma:integer;
   prosek:real;


  //program koji radi zbir i prosek prvih 100 brojeva
  // primer sa for i while

  begin
   clrscr();
   writeln ('Suma i prosek prvih 100 brojeva sa for i while');
   for i:=1 to 100 do
    begin
suma:=suma+i;
    end;
// ispis rezultata  posle for petlje
prosek:=suma/100;
         writeln('Ispis posle for a');
writeln('suma=',suma);
    writeln('prosek=',prosek);

    i:=1; // postavi i
suma:=0;// postavi sumu
    while(i<=100) do
     begin
         suma:=suma+i;
         i:=i+1;
     end;
    // ispis rezultata  posle for petlje
prosek:=suma/100;
         writeln('Ispis posle while a');
writeln('suma=',suma);
    writeln('prosek=',prosek);

   readln();
 end.