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.
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.
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
| Dãy số | 15 | 10 |
13 |
17 | |
| i | 1 |
2 |
3 | 4 | 5 |
| Min | 15 | 10 | 10 |
10 |
Vậy giá trị nhỏ nhất là 10
nhàm