hãy mô tả thuật toán tính tổng các số dương trong dãy số A=\(\left\{a_1,q_2,.........,a_n\right\}\)
mn viết ra cho mk như chương trình free pascal nhoa
mk yeu mn nhìu
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.
VAR A,n:real;
begin
write('nhap gia tri n:');readln(n);
A:=1/(1*3)+1/(2*4)+1/(3*5)+.........+1/n(n+2);
writeln('gia tri cua A la:,'A);
readln;
end.
program im_14424;
uses crt;
var A: array[1..100000] of integer;
S,i,n: integer;
begin
clrscr;
write('Nhap vao n: ');
readln(n);
S:=0;
for i:=1 to n do
begin
write('Nhap A[',i,']: ');
readln(A[i]);
if (A[i] mod 2 = 0 then S:=S+i;
end;
write(S);
readln
end.
uses crt;
var a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
if n<=0 then writeln('Ban nhap sai, yeu cau nhap lai');
until n>0;
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
* Thuật toán:
Bước 1: Nhập n và dãy số a1, a2…, an.
Bước 2: SUM ← 0; i ← 0.
Bước 3: Nếu ai > 0 thì SUM ← SUM + ai, ngược lại đến bước 4.
Bước 4: i ← i + 1;
Bước 5: Nếu i \(\le\) n thì quay lại bước 3.
Bước 6: Thông báo giá trị SUM. Kết thúc thuật toán.
* Chương trình: program tinhtong; uses crt; var a,n,i: integer; sum: real; begin clrscr; write('Nhap n vao'), read(n); write('nhap day A vao'), read(a1,a2,...,an); sum:=0, i:=0; if i <= n then if ai > 0 then sum:=sum+ai else i:i+1; writeln('tong cac so duong trong day la',sum:4:0) readln end. Theo mình thì ntn1GP cho bạn nào trả lời được câu này