Zistenie maximálneho (resp

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: Homework in Pascal

Author: Pheo
web: pascalsource.ic.cz

Program: Mmpostup.pas
File exe: Mmpostup.exe

Zistenie maximálneho (resp. minimálneho) prvku postupnosti.
{ MMPOSTUP.PAS                                   Copyright (c) Pheo }
{ Zistenie maximálneho (resp. minimálneho) prvku postupnosti.       }
{                                                                   }
{ Datum:02.12.1999                             http://www.trsek.com }
 
program mmpostup;
var s,a,i,p,min,m,max:integer;
begin
  writeln('zadaj pocet cisel');
  readln(s);
  writeln('zadaj prve cislo');
  readln(a);
  min:=a;
  max:=0;
 
  for i:=2 to s do begin
                 writeln('zadaj dalsie cislo');
                 readln(m);
                 if m<min then min:=m;
                 if m>min then max:=m;
                 end;
  writeln('minimum je ',min);
  writeln('maximum je ',max);
  readln;
end.