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.
1:
uses crt;
var a:array[1..100]of integer;
i,n,dem,t:integer;
tb:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
dem:=0;
for i:=1 to n do
if a[i]>0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('Tong cac so duong la: ',t);
writeln('So luong cac so duong la: ',dem);
tb:=t/dem;
writeln('Trung binh cong cac so duong la: ',tb:4:2);
readln;
end.
2:
uses crt;
var n,i,s:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
t:=1;
for i:=1 to n do
begin
s:=s+i;
t:=t*i;
end;
writeln('Tong cua day so tu 1 toi ',n,' la: ',s);
writeln('Tich cua day so tu 1 toi ',n,' la: ',t);
readln;
end.
Bài 1:
a)
-Bước 1: nhập n và nhập dãy số
-Bước 2: i=1, t=0
-Bước 3: nếu a[i]>0 thì t→t+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 t
-Bước 7: kết thúc
b)
-Bước 1: nhập n và nhập dãy số
-Bước 2: i=1, nn=a[1];
-Bước 3: nếu nn>a[i] thì nn→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 nn
-Bước 7: kết thúc
c)
-Bước 1: nhập n và nhập dãy số
-Bước 2: i=1, dem=0
-Bước 3: nếu a[i]<0 thì dem→dem+1;
-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 dem
-Bước 7: kết thúc
Bài 2:
Thuật toán này thực hiện nhiệm vụ: nhập 1 dãy n số và một khóa k. kiểm tra xem khóa k có trong dãy hay không. nếu có hãy xuất vị trí của khóa k
INP rồi nha bạn
cấu trụ câu lệnh như sau:
for i:= 1 to n do
s:= s+a[i];
write(' tong cong: ',s);
readln;
end.
Thuật toán:
Bước 1: Nhập n và nhập dãy số
Bước 2: s←0; i←1
Bước 3: s←s+i; i←i+1
Bước 4: Nếu i≤n thì quay lại bước 3
Bước 5: Xuất s
Bước 6: Kết thúc