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.
Program Xoa_mang;
uses crt;
var m:array[1..100] of integer;
n,i,k:byte;
begin
Write(‘So phan tu cua day: ‘);readln(n);
for i:=1 to n do
Begin
write(‘M[‘,i,’]=’);
readln(M[i]);
end;
write(‘Nhap phan tu can xoa: ‘);readln(k);
for i:=k to n-1 do m[i]:=m[i+1];
for i:=1 to n-1 do write(m[i],’ ‘);
readln
end.
1)
Var array:[1..1000] of integer;
i,n,t:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
For i:=1 to n do
If a[i] > a[i+1] then
Begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
End;
Write('Sap xep tang dan ');
For i:=1 to n do write(a[i]:8);
Readln
End.
2)
Var array:[1..1000] of integer;
i,n,t:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
For i:=1 to n do
If a[i] < a[i+1] then
Begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
End;
Write('Sap xep giam dan ');
For i:=1 to n do write(a[i]:8);
Readln
End.
program ChenSoX;
var
i, j, n, x: integer;
a: array[1..100] of integer;
begin
write('Nhập số phần tử trong dãy số: ');
read(n);
for i:=1 to n do
begin
write('Nhập phần tử thứ ', i, ' của dãy số: ');
read(a[i]);
end;
write('Nhập số x cần kiểm tra và chèn vào dãy số:');
read(x);
i := 1;
while (i <= n) and (a[i] < x) do
i := i + 1;
if (i <= n) and (a[i] = x) then
writeln('Số ', x, ' đã có trong dãy số')
else
begin
for j:=n downto i+1 do
a[j] := a[j-1];
a[i] := x;
writeln('Dãy số mới:');
for i:=1 to n+1 do
write(a[i], ' ');
end;
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
readln;
end.
uses crt;
var a:array[1..20]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;
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day la: ',t);
for i:=1 to n do
if a[i]>50 then write(a[i]:4);
writeln;
for i:=1 to n do
if a[i]<30 then write(a[i]:4);
readln;
end.
program max_min;
uses crt;
var i,n:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
writeln('day vua nhap la:');
for i:=1 to n do
write(a[i]:3);
readln;
end.
program bai1;
var a:array[1..100] of longint;
i,n,x:longint;
begin
write('N= ');readln(n);
for i:=2 to n+1 do
begin
write('a[',i-1,']= ');
readln(a[i]);
end;
write('Nhap phan tu cac chen ');
readln(x);
a[1]:=x;
for i:=1 to n+1 do
write(a[i],' ');
readln
end.