Navigace: Hlavní stránka -> PASCAL -> 05 Jednorozměrná pole -> 05.02 Součet čísel v poli

MENU

05.02 Součet čísel v poli

Zadání:
Sestavte program, který načte do pole čísla (max. 100) a vypočte jejich součet
Řešení:
Pomocí prvního cyklu FOR pro proměnnou i načteme n hodnot a vložíme je do pole na příslušné pozice. V druhém
cyklu FOR sečteme všechny hodnoty v poli do proměnné soucet. 
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var pole:array[1..100] of real;
    i,n:integer;
    soucet:real;

begin

   write('Zadejte pocet cisel: ');
   readln(n);

   for i:=1 to n do
   begin
      write('Zadejte ',i,'.cislo: ');
      readln(pole[i]);
   end;

   soucet:=0;

   for i:=1 to n do  soucet:=soucet+pole[i];

   writeln('Soucet cisel: ',soucet:0:3);

   readln;

end.
program ke stažení

Pro studenty:
Oba cykly FOR se dají spojit do jednoho cyklu: 
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var pole:array[1..100] of real;
    i,n:integer;
    soucet:real;

begin

   write('Zadejte pocet cisel: ');
   readln(n);

   soucet:=0;

   for i:=1 to n do
   begin
      write('Zadejte ',i,'.cislo: ');
      readln(pole[i]);
      soucet:=soucet+pole[i];
   end;

   writeln('Soucet cisel: ',soucet:0:3);

   readln;

end.