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ềuKết: - sắp xếp dãy A thành dãy không giảm.MN GIÚP VỚI...
Đọc tiếp
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 Ạ!!!
uses crt;
var a:array[1..100]of integer;
i,n,t1,t2,tam,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
randomize;
for i:=1 to n do
begin
a[i]:=random(205);
end;
write('Day so vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t1:=0;
t2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then t1:=t1+a[i]
else t2:=t2+a[i];
end;
writeln('Tong cac so chan la: ',t1);
writeln('Tong cac so le la: ',t2);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.