Navigace: Hlavní stránka -> PASCAL -> 04 Cykly -> 04.12 Součet čísel na lichých a sudých pozicích v řadě

MENU

04.12 Součet čísel na lichých a sudých pozicích v řadě

Zadání:
Sestavte program, který určí součet čísel ze zadané řady čísel na sudých a lichých pozicích.
Řešení:
Zadání vyřešíme použitím cyklu FOR. Nejprve načteme do proměnné n celkový počet zadávaných čísel v řadě. Poté
pomocí cyklu FOR načteme všechna čísla a každé z nich zkontrolujeme, zda je jeho pozice sudá či lichá.
Podle této kontroly přičteme zadanou hodnotu do součtu sudých nebo lichých pozic.
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var cislo,sl,ss:real;
    n,i:integer;

begin

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

   sl:=0;
   ss:=0;

   for i:=1 to n do
   begin
      write('Zadejte ',i,':cislo: ');
      readln(cislo);
      if odd(i) then sl:=sl+cislo
                else ss:=ss+cislo;
   end;

   writeln('Soucet cisel na lichych pozicich: ',sl:0:3);
   writeln('Soucet cisel na sudych pozicich: ',ss:0:3);

   readln;

end.
program ke stažení
Pro studenty:
Pozor, nesmíte vynechat sekci inicializace proměnných. Do proměnných ss a sl MUSÍTE vložit hodnotu 0 (nula), jinak by program dosadil své počáteční hodnoty.
Funkce odd testuje lichost čísla.