Kód: Vybrať všetko

uses crt;
var i,cisla,pocet,max: integer;
begin
 clrscr;
 i:=1;
 pocet:=0;
 writeln('zadavaj cisla');
  repeat
   begin
    readln(cisla);
    inc(pocet);
    inc(i);
    if cisla=0  then dec(pocet);
   end;

  until cisla=0
    cisla[1]:=max;
  for i:=1 to pocet do
  begin
    if max<cisla[i+1] then max:=cisla[i+1];
   writeln('maximum je ',max);
   end;
end.

Kód: Vybrať všetko

uses crt;
var i,z,max: integer;
cisla: array[1..100] of integer;
begin
clrscr;
i:=1;
pocet:=0;
writeln('zadavaj cisla');
  repeat
   begin
    readln(cisla[i]);
    i:=i+1;
   end;
  until cisla=0
  max:=0;    
  for z:=1 to i do
  begin
    if cisla[i] > max then max:=cisla[i];
   end;
   writeln('maximum je ',max);
end.