8.1.. Izračunati sumu n učitanih bojeva sa tastature.

Opis rješenja: Prvo se učita sa tastature koliko će se sabirati brojeva. Zatim se učitavaju brojevi sa FOR petljom, sabiranje se izvodi unutar FOR petlje. Početana vrijednost sume se postavlja izvan petlje.

Listing programa:

PROGRAM p08112017;
USES
  WinCrt;
VAR
  i, n: Integer;
  a, s: Real;
BEGIN
  WRITE('Broj brojeva ');
  READLN( n );
  s := 0;
  FOR i := 1 TO n DO
    BEGIN
      WRITE('Otkcuaj ', i, '. broj ');
      READLN( a );
      s := s + a;
    END;
  Writeln('Suma je ', s);
END.

Ispis na ekranu:

Index