8.2.. Napisati program za odredjivanje najvećeg broja od n učitanih.

Listing programa:

program p08211007;
{Najveci broj od n ucitanih}
USES
  WinCrt;
var
  i,n,max, x:integer;
begin
  writeln ('Najveci broj od n ucitanih');
  write ('n x ');
  readln(n,x);
  max:=x;
  i := 2 
  WHILE i <= n DO
    BEGIN
      write('broj');
      readln(x);
      if x > max then
        max := x;
      i := i+1;
    END;
  writeln('Najveci od n ucitanih je ', max);
END.

Ispis na ekranu:

Index