1) Viết chương trình
a) Nhập vào mảng A có n phần tử
b) In mảng A đã nhập ra màn hình
c) In các số chẵn của mảng A
d) In các số lẻ của mảng A
2) Viết chương trình nhập vào dãy số nguyên A. Xuất ra màn hình các số dương trong dãy & tổng các số âm
3) Viết chương trình nhập vào mảng A các số nguyên. Xuất ra màn hình
a) Các số chẵn
b) Trung bình cộng các số chẵn đó
c) Mảng từ nhỏ đến lớn
4) Viết chương trình nhập vào mảng A các số nguyên. Tìm xem số a có trong mảng hay ko?

nhatkhanghulk đã viết:1) Viết chương trình
a) Nhập vào mảng A có n phần tử
b) In mảng A đã nhập ra màn hình
c) In các số chẵn của mảng A
d) In các số lẻ của mảng A
2) Viết chương trình nhập vào dãy số nguyên A. Xuất ra màn hình các số dương trong dãy & tổng các số âm
3) Viết chương trình nhập vào mảng A các số nguyên. Xuất ra màn hình
a) Các số chẵn
b) Trung bình cộng các số chẵn đó
c) Mảng từ nhỏ đến lớn
4) Viết chương trình nhập vào mảng A các số nguyên. Tìm xem số a có trong mảng hay ko?

4/

Code:

program mangso;
uses crt;
Var x: array[1..100] of integer;
a: integer;
i,n, dem: byte;
BEGIN
clrscr;
Write('Nhap n: ');readln(n);
For i:=1 to n do
      begin write('x[',i,']= ');readln(x[i]); end;
Write('Nhap a: ');readln(a);
i:=0;
While i<n do
Begin
i:= i+1;
If x[i]=a then dem:=dem+1;
end;
If dem >0 then write('So ',a,' co trong day')
else write('So ',a,' khong co trong day');
readln
END.

nhatkhanghulk đã viết:1) Viết chương trình
a) Nhập vào mảng A có n phần tử
b) In mảng A đã nhập ra màn hình
c) In các số chẵn của mảng A
d) In các số lẻ của mảng A
2) Viết chương trình nhập vào dãy số nguyên A. Xuất ra màn hình các số dương trong dãy & tổng các số âm
3) Viết chương trình nhập vào mảng A các số nguyên. Xuất ra màn hình
a) Các số chẵn
b) Trung bình cộng các số chẵn đó
c) Mảng từ nhỏ đến lớn
4) Viết chương trình nhập vào mảng A các số nguyên. Tìm xem số a có trong mảng hay ko?

2/

Code:


Var A: array[1..100] of integer;
n,i: byte;
x: interger;
BEGIN
Write('Nhap n: ');readln(n);
For i:=1 to n do
      begin write('a[',i,']= ');readln(a[i]); end;
Write('Cac so duong la: ');
For i:= 1 to n do
      If a[i]> 0 then write(a[i],#32);
For i:= 1 to n do
      If a[i]<0 then x:=x+a[i];
write('Tong cac so am la: ',x);
readln
END.


4)

Code:

Var x: array[1..100] of integer;
a: integer;
i,n, dem: byte;
BEGIN
Write('Nhap n: ');readln(n);
For i:=1 to n do
      begin write('x[',i,']= ');readln(x[i]); end;
Write('Nhap a: ');readln(a);
i:=0;
While i<n do
Begin
i:= i+1;
If x[i]=a then dem:=dem+1;
end;
If dem >0 then write('So ',a,' co trong day')
else write('So ',a,' khong co trong day');
readln
END.

2)

Code:

Var A: array[1..100] of integer;
n,i: byte;
x: interger;
BEGIN
Write('Nhap n: ');readln(n);
For i:=1 to n do
 begin write('a[',i,']= ');readln(a[i]); end;
Write('Cac so duong la: ');
For i:= 1 to n do
 If a[i]> 0 then write(a[i],#32);
For i:= 1 to n do
 If a[i]<0 then x:=x+a[i];
write('Tong cac so am la: ',x);
readln
END.

3)

Code:

Var A: array[1..100] of integer;
n,i,k: byte;
x,S,T: interger;
BEGIN
Write('Nhap n: ');readln(n);
For i:=1 to n do
 begin write('a[',i,']= ');readln(a[i]); end;
write('Cac so chan la: ');
For i:= 1 to n do
If a[i] mod 2=0 then
begin
 write(a[i],#32);x:= x+1;
 end;
writeln;
For i:= 1 to x do
S:= S+a[i];
write('Trung binh cong cac so chan la: 'S/x);
writeln;
write('Day tang dan: ');
For i:= 1 to n do
For k:= 1 to n do
If a[i] > a[k] then
begin
 T:=a[i];
 a[i]:=a[k];
 a[k[:=T;
 end;
For i:= 1 to n do write(a[i],#32);
readln
END.

1)

Code:

Var A: array[1..100] of integer;
n,i: byte;
x: interger;
BEGIN
Write('Nhap n: ');readln(n);
For i:=1 to n do
      begin write('a[',i,']= ');readln(a[i]); end;
For i:=1 to n do write (a[i]);
write('Cac so chan la: ');
For i:=1 to n do
If a[i] mod 2 =0 then write(a[i],#32);
write('Cac so le la: ');
For i:=1 to n do
If a[i] mod 2 =0 then write(a[i],#32);
readln;
END.