là viết chương trình nhập từ bàn phím 1 mảng gồm n số nguyên (1
Những câu hỏi liên quan
1.viết chương trình nhập vào mảng A gồm N phần tử (N 500) từ bàn phím. Sau đó, tính tổng các phần tử âm chia hết cho cho 72.viết chương trình nhập vào mảng C gồm 10 phần tử từ bàn phím. Sau đó xuất ra các phần tử là số nguyên tố3.viết chương trình tạo nhập vào mảng D gồm K phần tử (K 200) từ bàn phím. Sau đó cho biết có bao nhiêu phần tử chẵn có 2 chữ sốmn giúp em giải với ạ
Đọc tiếp
1.viết chương trình nhập vào mảng A gồm N phần tử (N<= 500) từ bàn phím. Sau đó, tính tổng các phần tử âm chia hết cho cho 7
2.viết chương trình nhập vào mảng C gồm 10 phần tử từ bàn phím. Sau đó xuất ra các phần tử là số nguyên tố
3.viết chương trình tạo nhập vào mảng D gồm K phần tử (K<= 200) từ bàn phím. Sau đó cho biết có bao nhiêu phần tử chẵn có 2 chữ số
mn giúp em giải với ạ
Câu 1:
uses crt;
var a:array[1..500]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]<0) and (a[i] mod 7=0) then t:=t+a[i];
writeln('Tong cac so am chia het cho 7 la: ',t);
readln;
end.
Câu 2:
uses crt;
var c,a:array[1..10]of integer;
i,kt,j,dem:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('C[',i,']='); readln(c[i]);
end;
dem:=0;
for i:=1 to 10 do
if c[i]>1 then
begin
kt:=0;
for j:=2 to c[i]-1 do
if c[i] mod j=0 then kt:=1;
if kt=0 then
begin
inc(dem);
a[dem]:=c[i];
end;
end;
if dem=0 then writeln('Trong day khong co so nguyen to')
else begin
writeln('Cac so nguyen to trong day la: ');
for i:=1 to dem do
write(a[i]:4);
end;
readln;
end.
Câu 3:
uses crt;
var d:array[1..200]of integer;
i,k,dem:integer;
begin
clrscr;
write('Nhap k='); readln(k);
for i:=1 to k do
begin
write('D[',i,']='); readln(d[i]);
end;
dem:=0;
for i:=1 to k do
if (a[i] mod 2=0) and (a[i]>=10) then inc(dem);
writeln('So phan tu chan co 2 chu so la: ',dem);
readln;
end.
Đúng 1
Bình luận (0)
a) Viết chương tình nhập vào từ bàn phím mảng A gồm n số nguyên.In ra màn hình số nguyên lớn nhất
b) Viết chương trình nhập vào từ bàn phím mảng B gồm n số nguyên.In ra màn hình số nguyên bé nhất
a)
uses crt;
var a:array[1..100]of integer;
i,n,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];
writeln(max);
readln;
end.
Đúng 0
Bình luận (0)
b)
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình nhập mảng 1 chiều A gồm m số nguyên từ bàn phím. Đếm số lần xuất hiện của X trong mảng A. với X là số nguyên nhập từ bàn phím. Xất kết quả ra màn hình
Program HOC24;
var m,i,d: integer;
a: array[1..32000] of integer;
begin
write('Nhap m= '); readln(m);
for i:=1 to m do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap X = '); readln(x);
d:=0;
for i:=1 to n do if a[i]=x then d:=d+1;
write(X,' xuat hien ',d,' lan trong mang');
readln
end.
Đúng 1
Bình luận (0)
5. Viết chương trình a. Viết chương trình nhập và in ra 1 mảng gôm 40 phần tử kiểu số nguyên b. Viết chương trình nhập vào 1 mảng n số thực và in ra mảng đó ( với n là sô nguyên được nhập từ bàn phím và 0
Câu 1: Viết chương trình nhập n phần tử mảng 1 chiều là các số nguyên từ bàn phím, ghi mảng vừa nhập vào tệp MANG1CHIEU.TXT. Tìm giá trị nhỏ nhất trong mảng và đưa kết quả ra màn hìnhCâu 2: Viết chương trình nhập 1 xâu bất kỳ từ bàn phím, In ra xâu sau khi đã loại bỏ các kí tự là chữ cái và ghi vào tệp CHUSO.TXTgiúp em với ạ . em cảm ơn nhiều...
Đọc tiếp
Câu 1: Viết chương trình nhập n phần tử mảng 1 chiều là các số nguyên từ bàn phím, ghi mảng vừa nhập vào tệp MANG1CHIEU.TXT. Tìm giá trị nhỏ nhất trong mảng và đưa kết quả ra màn hình
Câu 2: Viết chương trình nhập 1 xâu bất kỳ từ bàn phím, In ra xâu sau khi đã loại bỏ các kí tự là chữ cái và ghi vào tệp CHUSO.TXT
giúp em với ạ . em cảm ơn nhiều...
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.
Đúng 1
Bình luận (0)
Viết chương trình Pascal, đặt tên chương trình là tên của con sau đó tải file ảnh lên đây. Chương trình thực hiện công việc sau: Khai báo 1 mảng A chứa tối đa 50 số nguyên, nhập n từ bàn phím, nhập vào mảng A gồm n số, viết mảng A ra màn hình (tất cả các phần tử trên cùng 1 dòng?
uses crt;
var a:array[1..50]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.
Đúng 0
Bình luận (0)
Viết chương trình Pascal, đặt tên chương trình là tên của con sau đó tải file ảnh lên đây. Chương trình thực hiện công việc sau: Khai báo 1 mảng A chứa tối đa 50 số nguyên, nhập n từ bàn phím, nhập vào mảng A gồm n số, viết mảng A ra màn hình (tất cả các phần tử trên cùng 1 dòng?
uses crt;
var a:array[1..50]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.
Đúng 0
Bình luận (0)
Cho dãy A gồm N số nguyên (N nhỏ hơn hoặc bằng 200) số nguyên A1,A2,...An. Hãy viết chương trình nhập mảng A vào từ bàn phím và đưa ra màn hình tổng các phần tử chia hết cho 5.
Bài 2: Viết chương trình nhập 1 xâu vào từ bàn phím và đưa ra màn hình xâu không chứa dấu cách. 
Bài 1:
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 5=0 then t:=t+a[i];
writeln('Tong cac so chia het cho 5 la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
Bài 2:
uses crt;
var st:string;
d,i:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i]=#32 then delete(st,i,1);
writeln(st);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập mảng gồm N số nguyên từ bàn phím và in ra màn hình các dãy số vừa nhập đó
program Nhapmang;
const MAX_N = 100;
var A: array[1..MAX_N] of integer;
N, i:integer;
begin
write('Nhap so phan tu: '); readln(N);
for i:= 1 to N do begin
write('Nhap phan tu ', i, ': ');
readln(A[i]);
end;
writeln('Day so vua nhap la:');
for i:= 1 to N do
write(A[i], ' ');
end.
Đúng 2
Bình luận (0)