Question

[Shuu Tsukiyama]

cho dãy số nguyên a1,a2... an. Tìm giá trị lớn nhất ( giá trị nhỏ nhất ) trong dãy số nguyên

Thực sự mình ko biết làm. mn giúp mình với!!

Answer 1

[Nguyễn Lê Phước Thịnh]

uses crt;

var a:array[1..100]of integer;

i,n,ln,nn:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

ln:=a[1];

nn:=a[1];

for i:=1 to n do 

 begin

if ln<a[i] then ln:=a[i];

if nn>a[i] then nn:=a[i];

end;

writeln(ln);

writeln(nn);

readln;

end.

Answer 2

[Shuu Tsukiyama]

tìm cả min lẫn max mà bạn