nhap 1 mang in ra so luong phan tu chan va cac so chan trong mang.
Những câu hỏi liên quan
Viet chuong trinh nhap vao 1 mang be hon 20 phan tu
a/ sap xep mang theo thu tu lon dAN
b/ gia tri trung binh cua cac phan tu
c/ in ra phan tu lon nhat va phan tu nho nhat
D/ IN Ra cac phan tu la so chan
uses crt;
var j,tg,s,max,min,i,n:longint;
a:array[1..19] of longint;
s1:real;
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-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
for i:=1 to n do
write(a[i],' ');writeln;
for i:=1 to n do
s:=s+a[i];
s1:=s/n;
writeln(‘Gia tri trung binh cua cac phan tu la: ‘,s1:0:0);
min:=a[1];max:=a[1];
for i:=2 to n do begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
write('Phan tu lon nhat la: ',max,' ','Phan tu nho nhat la: ',min); writeln;
for i:=1 to n do
if (a[i]<>0) and (a[i] mod 2=0) then write(a[i],' ');
readln
end.
Đúng 0
Bình luận (0)
trinh viet chuong nhap vao 1 mang 1 chieu gom n phan tu ( voi n duoc nhap vao tu ban phim ). Hay thuc hien cac cong viec sau:
-Nhap/xuar mang
- Dem co bao nhieu phan tu la so chan trong mang
-Kiem tra xem mang co phai la mang le hay khong ? ( tat ca cac phan tu mang la so le )
Bạn ơi phải viết bằng ngôn ngữ lập trình gì vậy.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
Giúp mình với ạ !
viet chuong trinh nhap mang a bat ky tu ban phim( n nho hon hoac bang 100) tinh va xuat ra mang hinh cac phan tu le hoac chan cua may vua nhap
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('n='); readln(n);
if (n>0) and (n<=100) then
begin
t:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if (a[i] mod 2=0) or (a[i] mod 2=1) then t:=t+a[i];
end;
writeln('tong cac phan tu chan hoac le trong day la: ',t);
end
else writeln('vui long nhap lai');
readln;
end.
viet phuong trinh nhap vao mang a gom N(N<=100) cac so nguyen roi thuc hien cac yeu cau
1. in ra danh sach cac so chia het cho 4
2. in ra mang hinh gia tri lon nhat chia het cho 7 va chi so do
3. xuat ra mang hinh cac phan tu cua mang do theo thu tu giam dan
uses crt;
var a,b:array[1..100]of integer;
n,i,dem,max,tam,j:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=100);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so chia het cho 4 la: ');
for i:=1 to n do
if a[i] mod 4=0 then write(a[i]:4);
writeln;
dem:=0;
for i:=1 to n do
if a[i] mod 7=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
max:=b[1];
for i:=1 to dem do
if max<b[i] then max:=b[i];
writeln('So lon nhat chia het cho 7 la: ',max);
writeln('Cac chi so cua no trong day A la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
writeln;
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 sau khi sap xep giam dan la: ');
for i:=1 to n do
write(a[i]:4);
readln;
end.
Đúng 0
Bình luận (0)
viet phuong trinh su dung bien mang phap 10 phan tu kieu so nguyen in ra mang hinh so chan
viet chuong trinh nhap vao mang 1 chieu ( n nho hon hoac bang 250), in ra tat ca cac phan tu va tinh tong cac phan tu cua mang
uses crt;
var a:array[1..250]of integer;
i,n,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
writeln;
for i:=1 to n do t:=t+a[i];
writeln(t);
readln;
end.
Đúng 1
Bình luận (0)
viet chuong trinh nhap vao mang so nguyen a(toi da 100 phan tu) tu ban phim in len man hinh cac phan tu chia het cho K (khong duoc nhap vao tu ban phim khi chay chuong trinh) trong mang
Em hãy sắp xếp các câu lệnh sau và viết lại thành 1 chương trình hoàn chỉnh . Sau đó cho biết chương trình đó thực hiện công việc gì ? Writeln ( Tong cac phan tu le trong mang la : , tle ) ;
End.
Program Bai _ tap _ day _ so ;
If a [ i ] mod 2 0 then chan : tchan + a [ i ] Readln ;
a:array [ 1 . . 100 ] of Integer ;
Begin
Clrscr ;
write ( Nhap so phan tu cua mang : ) ; Readln ( n ) ;
For i : 1 to n do readln ( a [ i ] ) ;
For i : 1 to n do
Write ( Nhap phan thu thu...
Đọc tiếp
Em hãy sắp xếp các câu lệnh sau và viết lại thành 1 chương trình hoàn chỉnh . Sau đó cho biết chương trình đó thực hiện công việc gì ? Writeln ( ' Tong cac phan tu le trong mang la : ' , tle ) ;
End.
Program Bai _ tap _ day _ so ;
If a [ i ] mod 2 = 0 then chan : = tchan + a [ i ] Readln ;
a:array [ 1 . . 100 ] of Integer ;
Begin
Clrscr ;
write ( ' Nhap so phan tu cua mang : ' ) ; Readln ( n ) ;
For i : = 1 to n do readln ( a [ i ] ) ;
For i : = 1 to n do
Write ( ' Nhap phan thu thu ' i ) ;
Writeln ( ' Tong cac phan tu chan trong mang la : ' , tchan ) ;
Begin
End ;
tchan : = 0 ; tle : = 0 ;
Else tle : = tle + a [ i ] ;
Uses crt ;
Var i , n , tchan , tle : Integer ;
nhap vao mot so nguyen N tu ban phim, in ra man hinh tong cac so chan ( hoac le) lien tiep tu 1 den N
1. Không đưa câu hỏi linh tinh lên diễn đàn, chỉ đưa các bài mà mình không giải được hoặc các câu hỏi hay lên diễn đàn;
2. Không trả lời linh tinh, không phù hợp với nội dung câu hỏi trên diễn đàn.
3. Không "Đúng" vào các câu trả lời linh tinh nhằm gian lận điểm hỏi đáp.
Các bạn vi phạm 3 điều trên sẽ bị giáo viên của Online Math trừ hết điểm hỏi đáp, có thể bị khóa tài khoản hoặc bị cấm vĩnh viễn không đăng nhập vào trang web.
Đúng 0
Bình luận (0)