K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
TQ
18 tháng 4 2021
phần đọc tự viết
for i:=j to n do
b[i+1]:=a[i];
for i:=1 to j do write(g,a[i]);
write(g,M);
for i:=j+1 to n+1 do
write(g,b[i]);
19 tháng 4 2021
uses crt;
var a,b:array[1..100]of integer;
i,n,m,k,tam: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]:6);
writeln;
write('Nhap m='); readln(m);
write('Nhap chi so k='); readln(k);
for i:=1 to k do
b[i]:=a[i];
for i:=k+2 to n+1 do
b[i]:=a[i-1];
b[k+1]:=m;
for i:=1 to n+1 do
write(b[i]:6);
readln;
end.
17 tháng 2 2021
uses crt;
var a,b:array[1..100]of real;
i,n,dem:integer;
max:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i]>0 then
begin
inc(dem);
b[dem]:=a[i];
end;
if dem=0 then writeln('1')
else begin
max:=b[1];
for i:=1 to dem do
if max<b[i] then max:=b[i];
writeln(max:4:2);
end;
readln;
end.
13 tháng 2 2023
# Nhập mảng
m = int(input('Nhập số hàng: '))
n = int(input('Nhập số cột: '))
array = [[int(input()) for _ in range(n)] for _ in range(m)]
# In các giá trị chẵn
for i in range(m):
for j in range(n):
if array[i][j] % 2 == 0:
print(array[i][j], end=' ')
print()
AP
25 tháng 7 2021
cau 1:
uses crt;
var a:array[1..100] of integer;
n,i,min: integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
min:=a[1];
for i:=2 to n do
if min>a[i] then min=a[i];
writeln(a[i]);
readln;
end.
cau 2:
uses crt;
g:text;
s:string;
const fo='CHUSO.TXT';
begin
assign(g,fo);
rewrite(g);
readln(s);
for i:=1 to length(s) do
if not((s[i] in ['a'..'z'])and(s[i] in ['A'..'Z])) then delete(s,i,1);
writeln(g,s);
end.
31 tháng 1 2021
uses crt;
var a:array[1..100]of integer;
i,n,t,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
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];
t:=0;
for i:=1 to n do
if max=a[i] then t:=t+a[i];
writeln('Tong cac phan tu co gia tri lon nhat la: ',t);
readln;
end.
21 tháng 2 2022
uses crt;
var a:array[1..100]of integer;
i,n,t,j,tam:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:5);
writeln;
writeln('Cac so duong la: ');
for i:=1 to n do if (a[i]>0) then write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if a[i] mod 3=0 then t:=t+a[i];
writeln(t);
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.
Bạn tham khảo dưới đây
link: https://www.iostream.vn/modern-cpp/mang-1-chieu-mang-2-chieu-ksWnH
Mảng 1 chiều
Khai báo
#include
int main()
{
int a[11] = { 1, 2, 3, 4, 5, 6, 7, 8 };
printf("%d", a[1]); // in giá trị ở vị trí "1" => a[1] =2
return 0;
}
Mảng 2 chiềuKhai báo#include
int main()
{
int a[3][4];
a[0][0] = 8;
a[0][1] = 9;
a[0][2] = 2;
a[0][3] = 6;
a[1][0] = 1;
a[1][1] = 5;
a[1][2] = 4;
a[1][3] = 2;
a[2][0] = 3;
a[2][1] = 1;
a[2][2] = 4;
a[2][3] = 8;
printf("%d",a[1][2]); // xuất giá trị tại a[1][2] = 7;
return 0;
}