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.
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
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
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.
Program bai1;
uses crt;
var a: array[1..100] of integer;
n,i: integer;
begin
clrscr;
write('nhap n ='); readln(n);
for i:= 1 to n do
begin
write('nhap a[',i,'] ='); readln(a[i]);
end;
writeln('cac so chan la :');
for i:= 1 to n do
if a[i] mod 2 = 0 then write(a[i] :4);
writeln;
writeln('cac so le la :');
for i:= 1 to n do
if a[i] mod 2 <> 0 then write(a[i] :4);
writeln;
writeln('cac so chia het cho 3 la :');
for i:= 1 to n do
if a[i] mod 3 = 0 then write(a[i] :4 );
readln;
end.