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

Opis rješenja: Učitavanje brojeva se izvodi sa FOR petljom a i sabiranje se izvodi unutar FOR petlje. Početana vrijednost sume se postavlja izvan petlje.

Listing programa:

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

Ispis na ekranu:

Index