MN GIÚP VỚI Ạ!!!
Viết chương trình:
Khai báo – tên chương trình
-thư viện
– biến( mảng học sinh )
Phần Thân :
– nhập 1 số N tùy ý thuộc Z+ từ bàn phím
– tạo ngẫu nhiên N số nguyên thuộc [-205] đến [+205 ]
– in dãy số vừa tạo ra màn hình
– tính tổng các số chẵn và tổng các số lẻ có trong mảng 1 chiều
Kết: – sắp xếp dãy A thành dãy không giảm.
MN GIÚP VỚI Ạ!!!
program Mang;
uses CRT;
var a: array[1..1000] of integer;
n,i,j,chan,le,t: integer;
begin
clrscr;
write(‘Nhap n= ‘); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,‘]: ‘);readln(a[i]);
end;
write(‘Day vua tao la: ‘);
for i:=1 to n do
write(a[i],‘ ‘);
for i:=1 to n do
If a[i] mod 2 = 0 then chan:=chan + a[i]
else le:=le+a[i];
writeln;
writeln(‘Tong cac so chan: ‘,chan);
writeln(‘Tong cac so le: ‘,le);
for i:=1 to n–1 do
for j:=i+1 to n do
If a[i] > a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
write(‘Day sau khi sap xep: ‘);
for i:=1 to n do
write(a[i],‘ ‘);
readln;
end.