12.104.Učitati niz A od n člana. Formirati članove niza B od vrijednosti kosinusa odgovarajućeg člana niza A.

Opis programa: FOR petlja sadrži pridruživanje vrijednosti kosinusa.

Listing programa:

PROGRAM P10811009;
USES
  WinCrt;
CONST
  n = 5;
VAR
  i : INTEGER;
  A, B : ARRAY [1..n] OF INTEGER;
BEGIN
  WRITELN('Pocetne vrijednosti');
  FOR i:=1 TO n DO   
    B[i] := COS(A[i]);
  FOR i := 1 TO n DO  {izlaz}
    WRITELN('A[',i,'] = ',A[i], '  B[',i,'] = ',B[i]);
END.

Index