1: xác định bài toán
input:
- số nguyên n
- dãy A gồm n số
output:
xuất các số nguyên dương và tìm vị trí của chúng trong dãy A
2: Mô tả thuật toán
-bước 1: chúng ta cho for i chạy từ 1 tới n
-bước 2: nếu a[i]>0 thì xuất a[i] ra và đưa vị trí i của chúng vào trong 1 dãy array B . sau đó xuất vị trí thì for i chạy từ 1 tới chiều dài của B và xuất B[i]:4
-bước 3: kết thúc chương trình
3: Viết chương trình
uses crt;
var a,b:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('nhap do dai cua day:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------xuat---------------}
for i:=1 to n do
write(a[i]:4);
{----------xu-ly---------------}
writeln;
dem:=0;
writeln('cac so nguyen duong co trong day A la: ');
for i:=1 to n do
if a[i]>0 then
begin
write(a[i]:4);
inc(dem);
b[dem]:=i;
end;
writeln;
writeln('vi tri cua cac so nguyen duong trong day A la: ');
for i:=1 to dem do
write(b[i]:4);
readln;
end.
