Viết chương trình nhập vào một dãy số nguyên khác 0, các số cách nhau bởi dấu cách và kết thúc bằng số 0. Từ dãy vừa nhập in ra màn hình:
a) dãy các số chẵn trong dãy. Tổng các số chẵn trong dãy
b) Dãy các số lẻ trong dãy. Tổng các số lẻ trong dãy.
c) Sắp xếp dãy vừa nhập vào theo thứ tự không giảm
**Gấp Gấp, cần gấp lắm...
Đọc tiếp
Viết chương trình nhập vào một dãy số nguyên khác 0, các số cách nhau bởi dấu cách và kết thúc bằng số 0. Từ dãy vừa nhập in ra màn hình:
a) dãy các số chẵn trong dãy. Tổng các số chẵn trong dãy
b) Dãy các số lẻ trong dãy. Tổng các số lẻ trong dãy.
c) Sắp xếp dãy vừa nhập vào theo thứ tự không giảm
**Gấp Gấp, cần gấp lắm rồi**
+ý : a,
program bai1;
uses crt;
var a: array[1..100] of integer;
i,n: integer;
s: real;
begin
clrscr;
write('nhap phan tu mang :');
readln(n);
for i:= 1 to n do
begin
write('nhap so thu ' , i , ' =') readln(a[i]);
end;
s:=0;
for i:= 1 to n do
if a[i] mod 2 = 0 then
s:=s+a[i];
writeln('tong=' ,s:3:2);
readln
end.
+ý : b,
program bai1;
uses crt;
var a: array[1..100] of integer;
i,n: integer;
s: real;
begin
clrscr;
write('nhap phan tu mang :');
readln(n);
for i:= 1 to n do
begin
write('nhap so thu ' , i , ' =') readln(a[i]);
end;
s:=0;
for i:= 1 to n do
if a[i] mod 2 =1 then
s:=s+a[i];
writeln('tong=' ,s:3:2);
readln
end.
+ ý c,
program bai1;
uses crt;
var a: array[1..100] of integer;
i,n,Zinteger;
begin
clrscr;
write('nhap phan tu mang :');
readln(n);
for i:= 1 to n do
begin
write('nhap so thu ' , i , ' =') readln(a[i]);
end;
for i:= 1 to n do
for j:= i+1 to n do
if a[i] > a[j] then
Z:=a[i];
a[i]:=a[j];
a[j]:=Z;
writeln(a[i]);
readln
end.