Question

Đề: lập chương trình tìm max của 10 số được nhâp từ bàn phím

Answer 1

uses crt;

var i,n,ln,x:integer;

begin

clrscr;

readln(n);

ln:=0;

for i:=1 to n do

begin

readln(x);

if ln<x then ln:=x;

end;

writeln(ln);

readln;

end.