Question

Viết CT nhập vào 1 mảng a,b hoặc c

1.In ra màn hình mảng vừa nhập

2.Sắp xếp mảng theo trình tự tăng dần hoặc giảm dần

3. Đếm xem trong mảng có bao nhiêu phần tử, bao nhiêu phần tử chẵn, bao nhiêu phần tử lẻ.

Mọi ng giúp mình vs, mình đang cần rất gấp, mai ktra r

Answer 1

***Bài một và bài 3 mình biết làm con bài hai mình chịu thua!

Program Abc_2003;

Uses crt;

Var: i,n,S,d,m,n: integer;

A: array[1..1000] of integer;

Begin

Clrscr;

Write('Moi ban nhap so phan tu cua mang: '); Readln(n);

For i:= 1 to n do

Begin

Writeln('Hay nhap so thu ',i,' : '); Readln(a[i]);

end;

s:= 0

For i:= 1 to n do

begin

if a[i] mod 2 = 0 then m:= m+1 else n:= n+1;

S:= S+1;

end;

Writeln('Trong mang co ',S,' phan tu, trong do co ',m,' phan tu chan va ',n,' phan tu le');

Readln;

End.

Answer 2

không biết chương trình có sai chỗ nào không nữa!?

Answer 3

1) type mang=array [1..20] of integer;

var a:mang; i,n:integer;

begin

readln(n);

for i:=1 to n do

begin

readln(a[i]);

end;

for i:=1 to n do

writeln(a[i]);

readln;

end.

Answer 4

2) Type mang=array [1..20] of integer;

var a:mang; n,i,sl:integer;

begin

readln(n); sl:=0;

for i:=1 to n do

begin

readln(a[i]);

end;

for i:=1 to n do

if a[i] mod 2 =0 then sl:=sl+1;

writeln(sl);

readln;

end.

Answer 5

2) Sắp xếp mảng theo thứ tự tăng dần

type mang=array [1..20] of integer;

var a:mang; i,n,s,k:integer;

begin

readln(n);

for i:=1 to n do

begin

readln(a[i]);

end;

for i:=1 to n-1 do

for k:=i+1 to n do

if a[i] > a[k] then ( giảm dần thì đổi dấu )

begin

s:=a[i];

a[i]:=a[k];

a[k]:=s;

end;

for i:=1 to n do

writeln(a[i]);

readln;

end.

Answer 6

Program bai1;

uses crt;

var a: array [1..100] of integer;

n,i,j,dem,Z: integer;

begin

clrscr;

write('nhap mang n ='); readln(n);

for i := 1 to n do

begin

write('nhap a[',i,'] = '); readln(a[i]);

end;

writeln('mang vua nhap la :');

for i:= 1 to n do

write(a[i] :4);

writeln('mang tang dan la :');

for i:= 1 to n do

for j := 1+i to n do

if a[i] > a[j] then

begin

Z:=a[i];

a[i]:=a[j];

a[j]:=Z;

end;

write(a[i] :4);

dem:=0;

for i:= 1 to n do

if a[i] mod 2 = 0 then dem:=dem+1;

for i:=1 to n do

writeln('co ',dem,' phan tu chan ');

for i:= 1 to n do

if a[i] mod 2 <>0 then dem:=dem+1;

for i:= 1 to n do

writeln('co ',dem,' phan tu le ');

readln;

end.