Question

Ch 1 mảng số nguyên có 30 phần tử . Hãy lập chương trình

a) In ra các số nguyên dương có trong mang

b) In ra các số nguyên âm có trong mảng

c) In ra vị trí của các số 0 có trong mảng

Giúp mik vs mấy you

Answer 1

Program In;

uses crt;

Var a:real;

Begin

clrscr;

Write ('nhap 30 so nguyen:');

Readln(a);

If a>0 then write('So nguyen duong co trong man la:',a);

If a<0 then write('so nguyen am co trong man la:',a);

If a=0 then write ('0');

Readln;

End.