Viết chương trình xuất ra mảng đếm-am và thông báo có bao nhiêu phần tử âm
Bài 11: Kiểu mảng
Var n,i:integer;
Begin
Write('nhap n:');readln(n);
For i:=1 to n do
Begin
If i mod 2<>0 then write(i,' ');
Inc(dem);
End;
Write(' co tat ca:', dem,' so le');
Readln;
End.
Đúng 0
Bình luận (0)
Các bạn giúp mình với nhé !!!
lập chương trình nhập vào từ bàn phím một giãy gồm N phần tử từ bàn phím
a)hiển thị giãy số vừa nhập ra màn hình
b)tính tổng phần tử có giá trị chẵn và ở vị trí lẻ
c)sắp xếp dãy số trên theo thứ tự tăng dần
Mã ở đây nhé: https://hastebin.com/kesaluhoti.pas
Hình ảnh
Đúng 0
Bình luận (0)
Nhập số nguyên gồm n phần tử (n<=100) và dãy số nguyên A1,A2,...An. Hãy đếm số lượng số chẵn và số lượng số lẻ có trong dãy.
Mọi người giúp em với ạ.
uses crt;
var a:array[1..100]of integer;
i,n,dc,dl:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------------------xu-ly------------------------------}
dc:=0;
dl:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(dc)
else inc(dl);
end;
writeln('trong day co ',dc,' so chan va ',dl,' so le');
readln;
end.
Đúng 0
Bình luận (0)
viết ct nhập vào n số nguyên và in ra những số nguyên âm
uses crt;
var n,i:integer;
a:array[1..100]of integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------------------xuat------------------------------}
writeln('cac so nguyen am la: ');
for i:=1 to n do
if a[i]<0 then write(a[i]:4);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình nhập vào n số nguyên và in ra những số nguyên âm
uses crt;
var n,i:integer;
a:array[1..100]of integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------------------xuat------------------------------}
writeln('cac so nguyen am la: ');
for i:=1 to n do
if a[i]<0 then write(a[i]:4);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình nhập vào n số nguyên và in ra những số nguyên âm
uses crt;
var n,i:integer;
a:array[1..100]of integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------------------xuat------------------------------}
writeln('cac so nguyen am la: ');
for i:=1 to n do
if a[i]<0 then write(a[i]:4);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào mảng B gồm N phần tử , tìm và hiển thị số nhỏ nhất trong mảng.
uses crt;
var b:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('B[',i,']='); readln(b[i]);
end;
min:=b[1];
for i:=1 to n do
if min>b[i] then min:=b[i];
writeln('So nho nhat la: ',b[i]);
readln;
end.
Đúng 0
Bình luận (0)
mình viết chương trình mà bị lỗi này sao sửa ạ
Hình như là chưa xóa màn hình đó bạn
Nếu bạn muốn xóa màn hình thì bạn nhập lệnh clrscr;
Đúng 1
Bình luận (0)
Mọi người giúp em vs ạ
Số nguyên tố là số chỉ có đúng 2 ước là 1 và chính nó.
Số đảo ngược của một số là viết các chữ số của số đó theo thứ tự ngược lại.
Số n được gọi là số song nguyên tố nếu n là số nguyên tố và số đảo ngược của n cũng là số nguyên tố.
Yêu cầu: Viết chương trình in ra những số song nguyên tố trong một dãy số.
Dữ liệu vào: Nhập từ bàn phím số nguyên dương n (n100000) và dãy n số nguyên.
Dữ liệu ra: In ra màn hình những số song nguyên tố trong dãy số vừa nhập.
Đọc tiếp
Mọi người giúp em vs ạ
Số nguyên tố là số chỉ có đúng 2 ước là 1 và chính nó.
Số đảo ngược của một số là viết các chữ số của số đó theo thứ tự ngược lại.
Số n được gọi là số song nguyên tố nếu n là số nguyên tố và số đảo ngược của n cũng là số nguyên tố.
Yêu cầu: Viết chương trình in ra những số song nguyên tố trong một dãy số.
Dữ liệu vào: Nhập từ bàn phím số nguyên dương n (n<100000) và dãy n số nguyên.
Dữ liệu ra: In ra màn hình những số song nguyên tố trong dãy số vừa nhập.
uses crt; var a,b:array[1..100000]of integer; i,n,kt,j,dem,x,y,kt1:integer; st,st1:string; 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]>1 then begin kt:=0; for j:=2 to a[i]-1 do if a[i] mod j=0 then begin kt:=1; break; end; if kt=0 then begin inc(dem); b[dem]:=a[i]; end; end; for i:=1 to dem do begin str(a[i],st); st1:='' for j:=length(st) downto 1 do st1:=st1+st[j]; val(st1,x,y); kt1:=0; for j:=2 to x-1 do if x mod j=0 then begin kt1:=1; break; end; if kt1=0 then write(a[i]:4); end; readln; end.
Đúng 1
Bình luận (0)
Mọi người giúp em vs ạ
Số nguyên tố là số chỉ có đúng 2 ước là 1 và chính nó.
Số đảo ngược của một số là viết các chữ số của số đó theo thứ tự ngược lại.
Số n được gọi là số song nguyên tố nếu n là số nguyên tố và số đảo ngược của n cũng là số nguyên tố.
Yêu cầu: Viết chương trình in ra những số song nguyên tố trong một dãy số.
Dữ liệu vào: Nhập từ bàn phím số nguyên dương n (n100000) và dãy n số nguyên.
Dữ liệu ra: In ra màn hình những số song nguyên tố trong dãy số vừa nhập.
Đọc tiếp
Mọi người giúp em vs ạ
Số nguyên tố là số chỉ có đúng 2 ước là 1 và chính nó.
Số đảo ngược của một số là viết các chữ số của số đó theo thứ tự ngược lại.
Số n được gọi là số song nguyên tố nếu n là số nguyên tố và số đảo ngược của n cũng là số nguyên tố.
Yêu cầu: Viết chương trình in ra những số song nguyên tố trong một dãy số.
Dữ liệu vào: Nhập từ bàn phím số nguyên dương n (n<100000) và dãy n số nguyên.
Dữ liệu ra: In ra màn hình những số song nguyên tố trong dãy số vừa nhập.
uses crt; var a,b:array[1..100000]of integer; i,n,kt,j,dem,x,y,kt1:integer; st,st1:string; 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]>1 then begin kt:=0; for j:=2 to a[i]-1 do if a[i] mod j=0 then begin kt:=1; break; end; if kt=0 then begin inc(dem); b[dem]:=a[i]; end; end; for i:=1 to dem do begin str(a[i],st); st1:='' for j:=length(st) downto 1 do st1:=st1+st[j]; val(st1,x,y); kt1:=0; for j:=2 to x-1 do if x mod j=0 then begin kt1:=1; break; end; if kt1=0 then write(a[i]:4); end; readln; end.
Đúng 1
Bình luận (0)