Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Var a:array[1..1000] of integer;
i,m,tam:integer;
Begin
Write('m = ');readln(m);
For i:=1 to m do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
For i:=1 to m do
If a[i] < a[i+1] then
Begin
tam:=a[i];
a[i]:=a[i+1];
a[i+1]:=tam;
End;
Write('Mang sau khi sap xep: ');
For i:=1 to m do
Write(a[i]:8);
Readln;
End.
uses crt;
var a:array[1..100]of integer;
i,n,t,t1,j,tam:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
for i:=1 to n do t:=t+a[i];
t1:=0;
for i:=1 to n do
if a[i] mod 2=0 then t1:=t1+a[i];
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;
writeln(t);
writeln(t1);
for i:=1 to n do write(a[i]:4);
readln;
end.
Bài 2:
Uses crt;
Var a:array[1..200]of integer;
i,n,t:integer;
Begin
Clrscr;
Write('Nhap n='); readln(n);
For i:=1 to n do
Begin
Write('A[',i,']='); readln(a[i]);
End;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t);
readln;
end.
Bài 1. Nhập mảng A gồm n phần tử, rồi in mảng đó ra màn hình.
program BaiTap;
var
A: array[1..150] of integer;
N, i: integer;
begin
write('Nhap so phan tu cua mang A (N <= 150): ');
readln(N);
for i := 1 to N do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
writeln('Mang A vua nhap la:');
for i := 1 to N do
write(A[i], ' ');
readln;
end.
Bài 2. Nhập mảng A gồm n phần tư, rồi in tổng các phần tử mảng đó ra màn hình.
program BaiTap;
var
A: array[1..150] of integer;
N, i, sum: integer;
begin
write('Nhap so phan tu cua mang A (N <= 150): ');
readln(N);
for i := 1 to N do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
sum := 0;
for i := 1 to N do
sum := sum + A[i];
writeln('Tong cac phan tu trong mang la: ', sum);
readln;
end.
Bài 3. Nhập mảng A gồm n phần tử, rồi in tổng các phần tử dầu và phần tủ cuối của mảng đó ra màn hình.
program BaiTap;
var
A: array[1..150] of integer;
N, i, sum: integer;
begin
write('Nhap so phan tu cua mang A (N <= 150): ');
readln(N);
for i := 1 to N do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
sum := A[1] + A[N];
writeln('Tong cua phan tu dau va cuoi mang la: ', sum);
readln;
end.
program Tinh_Tong_Phan_Tu_Chan;
var
A: array of Integer;
N, i, sum: Integer;
begin
Write('Nhap N: ');
Readln(N);
SetLength(A, N);
// Nhập các phần tử cho mảng A
for i := 0 to N - 1 do
begin
Write('Nhap phan tu thu ', i + 1, ': ');
Readln(A[i]);
end;
// In lên màn hình các phần tử của mảng A
Write('Cac phan tu cua mang la: ');
for i := 0 to N - 1 do
begin
Write(A[i], ' ');
end;
Writeln;
// Tính tổng các phần tử chẵn của mảng A và thông báo kết quả ra màn hình
sum := 0;
for i := 0 to N - 1 do
begin
if A[i] mod 2 = 0 then
sum := sum + A[i];
end;
Writeln('Tong cac phan tu chan cua mang la: ', sum);
Readln;
end.
Bài 1
Var a:array:[1..99] of integer;
i,n:integer;
s:longint;
Begin
Repeat
Write('n = ');readln(n);
Until (n > 0) and (n < 100);
For i:=1 to n do
Begin
Write('Nhap diem thu ',i,' = ');readln(a[i]);
if a[i] mod 2 = 0 then s:=s+a[i];
End;
Write('Cac so vua nhap la: ');
For i:=1 to n do
Write(a[i]:8);
writeln;
write('Tong cac so chan la ',s);
Readln
End.
Bài 2
Var a:array:[1..99] of integer;
i,n:integer;
s:longint;
Begin
Repeat
Write('n = ');readln(n);
Until (n > 0) and (n < 100);
For i:=1 to n do
Begin
Write('Nhap diem thu ',i,' = ');readln(a[i]);
if a[i] mod 2 <> 0 then s:=s+a[i];
End;
Write('Cac so vua nhap la: ');
For i:=1 to n do
Write(a[i]:8);
writeln;
write('Tong cac so le la ',s);
Readln
End.
uses crt;
var a:array[1..100]of integer;
i,n,max,tam,j:integer;
begin
clrscr;
n:=100;
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('Gia tri lon nhat la: ',max);
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;
writeln('Day so giam dan la: ');
for i:=1 to n do
write(a[i]:4);
readln;
end.
uses crt;
var a,b,c:array[1..100]of longint;
n,m,i,j,dem,tam:integer;
begin
clrscr;
{------------nhap-mang-A----------------}
write('chieu dai mang A='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------nhap-mang-B----------------}
write('chieu dai mang B='); readln(m);
for j:=1 to m do
begin
write('b[',j,']='); readln(b[j]);
end;
{-----------------xuat-day-A--------------------}
writeln('day A=');
for i:=1 to n do
write(a[i]:4);
{---------------xuat-day-B--------------------}
writeln;
writeln('day B=');
for j:=1 to m do
write(b[j]:4);
writeln;
{------------sap-xep-mang-A------------------}
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;
writeln('day A sau khi sap xep la: ');
for i:=1 to n do write(a[i]:4);
{-----------sap-xep-mang-B------------------}
writeln;
for i:=1 to m-1 do
for j:=i+1 to m do
if b[i]>b[j] then
begin
tam:=b[i];
b[i]:=b[j];
b[j]:=tam;
end;
writeln('day B sau khi sap xep la: ');
for j:=1 to m do write(b[j]:4);
{--------------cho-cac-phan-tu-cua-A-va-B-vao-array-C------------------}
writeln;
writeln('day C=');
dem:=0;
for i:=1 to n do
begin
inc(dem);
c[dem]:=a[i];
end;
for j:=1 to m do
begin
inc(dem);
c[dem]:=b[j];
end;
for i:=1 to dem do write(c[i]:4);
{----------------sap-xep-mang-C-----------------}
for i:=1 to dem-1 do
for j:=i+1 to dem do
if c[i]>c[j] then
begin
tam:=c[i];
c[i]:=c[j];
c[j]:=tam;
end;
writeln;
writeln('day C sau khi sap xep la: ');
for i:=1 to dem do
write(c[i]:4);
readln;
end.
Không dùng phương pháp sắp xếp
a) In ra mảng C cũng tăng dần gồm các phần tử của A và B (chú ý ko đc sắp xếp lại mảng)
chú ý không được sắp xếp lại mảng là sao hả bạn
mình chưa hiểu lắm
Đề đầy đủ là:
Viết ct nhập vào 2 mảng A và B
Sắp xếp 2 mảng A và B theo thứ tụ tăng dần
b) In ra mảng C cũng tăng dần gồm các phân tử A và B( chú ý:như trên)
Mình làm đc câu a rồi nên nhờ các bạn giúp câu b
Nghĩa là mảng A + mảng B = mảng C (đã sắp xếp).
*Bài này cũng khá hay , mình gợi ý chút : Sử dụng phương pháp đánh dấu
nhưng mà có điều không sắp xếp lại mảng C thì làm sao làm được
Program hotrotinhoc;
var a: array[0..32000] of integer;
i,n,m,j,x : integer;
begin
write('Nhap so phan tu cua mang A :'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(x);
inc(a[x]);
end;
write('Nhap so phan tu cua mang B :'); readln(m);
for i:=1 to m do
begin
write('b[',i,']='); readln(x);
inc(a[x]);
end;
for i:=0 to 32000 do
if a[i]<>0 then
for j:=1 to a[i] do write(i,' ');
readln
end.
Thầy có thể giảng sơ giúp em được không ạ, cảm ơn thầy rất nhiều
*Sử dụng phương pháp đánh dấu
+Mảng A : n=3
Ví dụ x1=2
Tăng đếm : A[1] = 1
x2=3
Tăng đếm : A[3]=1
x3=2 Tăng đếm A[1]=2
+ Mảng B tương tự
Ta có 1 mảng đánh dấu sau cả 2 mảng A và B. Mảng này là đếm số lần xuất hiện của mỗi phần tử
*Bắt buộc phải for i:=0 to 32000 do (nếu chạy đến N thì có 1 số phần tử xi>N thì không thể thực hiện được)
Sau khi đánh dấu xong sẽ có nhiều phần tử không xuất hiện nên nó bằng 0 nên ta sẽ loại trường hợp này. Và chạy thêm 1 vòng for đã đếm được số phần tử xuất hiện và in nó ra ở vị trí i.
0o0 Nhok kawaii 0o0