Uses Crt;Type Mang = ARRAY[1..50] Of Integer;Var A:Mang; N,i,Max:Integer;Begin Write['Nhap N=']; Readln[N]; For i:=1 To N Do Begin Write['A[',i,']=']; Readln[A[i]]; End; Max:=A[1]; For i:=2 To N Do If Maxb then max:=a else max:=b;
end.
Tìm max của 3 số a, b, c: function max[a, b, c: integer]:integer;
begin if [a>b] and [a>c] then max:=a; if [b>a] and [b>c] then max:=b; if [c>a] and [c>b] then max:=c;
end; Còn bài tìm Min thì bạn chỉ việc thay thế tất cả dấu " > " thành dấu " < " và thay thế mọi chữ max thành chữ min thôi!
Nếu bài chỉ yêu cầu tìm max, min của hai ba số thì chỉ cần dùng vài câu lệnh if...then là được.
Còn nếu nó bắt mình tìm max, min của nhiều số trong một mảng thì bạn có thể tham khảo SGK Tin học lớp 8 phần mảng cũng được! Khỏi cần viết chương trình con cũng được!
Good Luck! Please press "Thanks"!
max[a,b,c]=max[a,max[b,c]]
min[a,b,c]=min[a,min[b,c]]
chỉ cần làm bài max, min 2 số thui còn 3 số thì quy về 2 số
ai giúp mình bài này vs cảm ơn nhiều [chủ yếu là câu 4 thôi]
Cho số tự nhiên N [N0 thì F=F[i-1] + 1 ; ngược lại thì F=1
sau đó tìm F lớn nhất
cuối cùng là in dãy con