viết chương trình in ra màn hinh các phần tử khác nhau có trong dãy n số nhập vào từ bàn phím
viết chương trình in ra màn hinh các phần tử khác nhau có trong dãy n số nhập vào từ bàn phím
By Quinn
By Quinn
viết chương trình in ra màn hinh các phần tử khác nhau có trong dãy n số nhập vào từ bàn phím
Tính và in ra tổng các số lẻ (dương)
Program Tinh_tong_so_le;
Uses CRT;
Var i,n,S:integer;
sl:boolean;
Begin
Clrscr;
Write(‘Nhap so n:’);Readln(n);
sl:=True;
For i:=1 to n do
Begin
If sl=True then S:=S+i;
sl:= not True;
End;
Writeln(‘Tong cua n so le la:’, S);
Readln;
End
chúc bạn học tốt ⇒ điểm cao nhé ∛ !!!
program khac_nhau;
uses crt;
var A:array[1..1000] of integer;
n,i,j,tg:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if A[i]>A[j] then
begin
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
end;
write(‘Cac gia tri khac nhau la: ‘);
for i:=1 to n do
if A[i]<>A[i+1] then write(A[i],’ ‘);
readln;
end.