Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var a:array[1..100]of integer;
i,n,nn,s:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
nn:=a[1];
s:=1;
for i:=1 to n do
begin
if nn>a[i] then nn:=a[i];
s:=s*a[i];
end;
writeln(nn);
writeln(s);
readln;
end.
1: Hoán đổi giá trị hai biến x và y
Chúng ta sẽ gán biến trung gian tam cho x, xong rồi gán biến trung gian tam đó cho y; rồi sau đó gán y ngược lại cho x, và xuất kết quả ra-đó chính là x và y sau khi hoán đổi cho nhau.
2: Tìm giá trị lớn nhất của dãy A
Chúng ta sẽ gán biến ln cho a[1], sau đó sẽ quét qua các phần tử trong mảng xem thử có phần tử nào lớn hơn ln thì gán ln cho phần tử đó. Sau cùng xuất ln ra, ta được số lớn nhất cần tìm.
uses crt;
var a:array[1..100] of integer;
max,n,i:integer;
begin
writeln('nhap do dai cua day');readln(n);
for i:=1 to n do begin writeln('A[',i,']=;);readln(a[i]); end;
max:=a[1];
for i:=2 to n do if a[i] > max then begin
max:=a[i]; writeln('vi tri cua max trong day la',i);end;
readln
end.
thật ra thì cũng không cần biến max nhưng mình làm vậy cho dễ hiểu hơn nhé!
*Thuật toán:
-Bước 1: Nhập n và nhập dãy số
-Bước 2: max←a[1]; i←1;
-Bước 3: i←i+1;
-Bước 4: Nếu max<a[i] thì max←a[i];
-Bước 5: Nếu i<=n thì quay lại bước 3
-Bước 6: Cho for chạy từ 1 đến n
Nếu a[i]=max thì xuất i
-Bước 7: Kết thúc
a: Input: Hai số a,b
Output: UCLN của hai số này
b:
-Bước 1: nhập a,b
-Bước 2: Nếu a>b thì
+Bước 2.1: r←a mod b;
+Bước 2.2: r←a mod b;
+Bước 2.3: a=b;
+Bước 2.4: b=r;
+Bước 2.5: Nếu r<>0 thì quay lại bước 2.2
+Bước 2.6: Xuất b
-Bước 3: Nếu a<=b thì
+Bước 3.1: r←b mod a;
+Bước 3.2: r←b mod a;
+Bước 3.3: b=a;
+Bước 3.4: a=r;
+Bước 3.5: Nếu r<>0 thì quay lại bước 3.2
+Bước 3.6: Xuất a
-Bước 4: Kết thúc
*Thuật toán
Bước 1: nhập dãy số
Bước 2: i←1; min←a[1];
Bước 3: nếu min>a[i] thì min←a[i];
Bước 4: i←i+1;
Bước 5: nếu i<=n thì quay lại bước 3
Bước 6: xuất min
Bước 7: kết thúc
– Thuật toán:
Mô tả thuật toán theo cách liệt kê:
Bước 1. Nhập N và dãy a1….aN;
Bước 2. Min <- ai, i <- 2
Bước 3. Nếu i > N thì đưa ra giá trị Min rồi kết thúc;
Bước 4:
Bước 4.1: Nếu ai < Min thì Min <- ai
Bước 4.2: i <- i+1 rồi quay lại bước 3
Chúc bạn học tốt!