Cho một dãy số tối đa gồm 100 số in ra màn hình giá trị nhỏ nhất của dãy số đó
Viết chương trình nhập dãy số gồm 100 số nguyên và in các số đó ra màn hình ( các số trong dãy số in ra trên một hàng, mỗi số cách nhau 2 kí tự Các câu hỏi tương tự Cho 1 dãy số tối đa gồm 100 số. In ra màn hình tích của dãy số đó Bạn nào giải giùm mình với mình đang cần gấp Bạn nào giỏi tin cho mình hỏi: giải thích từng câu lệnh giúp mình nha, hoa cả mắt :) Viết chương trình nhập một dãy số tối đa 100 số, sau đó in ra màn hình các số khác nhau Giải: Uses Crt; Var A : Array [1..100] Of Integer; i , j , n : Integer ; BEGIN Clrscr ; Write(' Do dai cua day so N = ') ; Readln (N) ; For I := 1 To N Do Begin Write ('A[', i , ']= ') ; Readln ( A[i] ) ; End ; Writeln (' Cac so khac nhau la : ') ; Writeln ( A[1] ) ; i := 2 ; While i <= N Do Begin j := 1 ; While ( j < i ) and ( A[j] <> A[i] ) Do inc(j) ; If j = i Then Writeln( A[i] ) ; i :=i + 1 ; End ; Readln ; END. |