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.
Input :n,dãy A
Output: Tổng A( điều kiện phần tử A>= 0)
B1: Nhập n
B2: Nhập các phần tử
B3:Xét a1;a2;a3;...an >= 0 Nếu phần tử nào dương thì chuyển qua một danh sách
B4 S-< a1,a2,...an;
B5: Kết thúc thuật toán
Bước 1: Gán giá trị cho 2 và biến SUM= 0 và i=0.
Bước 2: Do i=0<100 nên chuyển tới bước 3. Nếu i>100 thì chuyển tới bước 4.
Bước 3:Tăng giá trị i thêm 1 và giá trị của SUM bằng SUM+i.
Bước 4: Thông báo giái trị SUM, thuật toán kết thúc.
Kết quả thực hiện thuật toán Sum = 5050.
Bước 1: Gán giá trị cho 2 và biến SUM= 0 và i=0.
Bước 2: Do i=0<100 nên chuyển tới bước 3. Nếu i>100 thì chuyển tới bước 4.
Bước 3:Tăng giá trị i thêm 1 và giá trị của SUM bằng SUM+i.
Bước 4: Thông báo giái trị SUM, thuật toán kết thúc.
Kết quả thực hiện thuật toán Sum = 5050.
Bài 1:
Input: số nguyên N và dãy a1,...,an
output: số lượng số dương trong dãy.
Ý tưởng:
khởi gán dem=0
lần lượt chia các a[i] (i:1->N) cho 2
nếu ai chia hết cho 2 dư 0 thì dem=dem+1
diễn tả thuật toán
liệt kê:
b1: nhập số nguyên dương N và dãy a1, a2,..,an
b2: i<-1 , dem<-0
b3: i>N thì đưa ra biến dem rồi kthúc
b4: ai chia hết cho 2 thì dem<-dem+1
b5: i<-i+1, quay lại bc 3
Program bai1;
uses crt;
var a: array [1..100] of integer;
n,i,dem: integer;
begin
clrscr;
write('nhap so n ='); readln(n);
for i:= 1 to n do
begin
write('nhap a[',i,'] ='); readln(a[i]);
end;
dem:=0;
for i:= 1 to n do
if a[i] > 0 then dem:=dem+1;
write('co ',dem,' so duong trong day ');
readln;
end.
thuật toán:
- gán biến max cho 1 giá trị bất kì trong dãy
- dùng vòng lặp quét dãy, nếu gặp giá trị nào lớn hơn thì sẽ gán biến cho giá trị đó, cứ như vậy cho đến hết
mình thấy ở trang 71 SGK có bài tương tự
program Tinh_trung_binh_cong;
uses crt;
var n, dem : integer;
a, TB : real;
begin clrscr;
dem:= 0; TB:=0;
write('Nhap so cac so can tinh n = '); realn(n);
write dem < n do
begin dem:= dem + 1;
write('Nhap so thu ', dem,' = '); realn(a);
TB:= TB + a;
end;
TB:= TB/n;
writeln('Trung binh cua ', n, ' so la = ', TB:10:3);
writeln('Nhan Enter de thoat ...');
readln;
end.