Viết chương trình nhập vào mảng 1 chiều, các số nguyên<100.Sắp xếp dãy vừa nhập thành dãy giảm dần??? Giúp mình với!
Bài 11: Kiểu mảng
Program bai1;
uses crt;
var a: array[1..1000] of integer;
Z,i,j,n: integer;
begin
clrscr;
write('nhap n ='); readln(n);
for i:= 1 to n do
begin
write('nhap 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
Z:=a[i];
a[i]:=a[j];
a[j]:=Z;
end;
writeln('Day Da Sap Xep La :' );
for i:= 1 to n do write(a[i] :4);
readln;
end.
Đúng 0
Bình luận (2)
Viết chương trình nhập vào từ bàn phím mảng 1 chiều, gồm n ptử chứa các số nguyên, tìm và đưa ra ptử nhỏ nhất của máy? Giúp mình với!
program boi_cua_3;
uses crt;
var a:array[1..100] of integer;
n,i:byte;
min:integer;
begin
clrscr;
write('nhap so luong phan tu cua mang: ');
readln(n);
for i:= 1 to n do
begin
write('nhap phan tu thu [',i,']= ');
readln(a[i]);
end;
min:=a[1];
for i:= 1 to n do
if min > a[i] then min:=a[i];
writeln('gia tri nho nhat cua day la: ',min);
readln
end.
Đúng 0
Bình luận (0)
Viết chương trình tạo mảng 1 chiều gồm n ptử chứa các số nguyên ngẫu nhiên <100. Đưa ra màn hình tổng các chữ số bội của 3? Giúp mình với!
program boi_cua_3;
uses crt;
var a:array[1..100] of integer;
n,i:byte;
s:integer;
begin
clrscr;
write('nhap so luong phan tu cua mang: ');
readln(n);
for i:= 1 to n do
begin
write('nhap phan tu thu [',i,']= ');
readln(a[i]);
end;
s:=0;
for i:= 1 to n do
if a[i] mod 3 = 0 then s:=s+a[i];
writeln('vay tong cac so la boi cua 3 la: ',s);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình lập mảng A gồm N số nguyên. tính và đưa ra màn hình số lượng các số âm
i,n,t:integer;
begin
write('nhap so phan tu cua mang')
for i:=1 to n do
begin
write('phan tu thu ',i,' : ');
readln(a[i]);
end;
for i:=1 to n do
t:= t + a[i]
write('tong cac phan tu trong mang la :',t);
readln
end.
Đúng 0
Bình luận (0)
Program bai1;
uses crt;
var a: array [1..1000] of integer;
i,n,dem: integer;
begin
clrscr;
write('nhap n ='); readln(n);
for i:= 1 to n do
begin
write('nhap a[',i,'] ='); readln(a[i]);
end;
dem:=0;
for i:= 1 to n do
if a[i] < 0 then dem:=dem+1;
write('so luong cac so am la : ',dem);
readln;
end.
Đúng 0
Bình luận (0)
1. tính trung bình các số thỏa mãn điều kiện ( mảng một chiều )
2. tìm giá trị lớn nhất hoặc giá trị nhỏ nhất ( mảng một chiều )
3. xóa hoặc chèn phần tử ( mảng mọt chiều )
4. tìm một phần tử K bất kì ( trong mảng một chiều )
1. tính trung bình các số thỏa mãn điều kiện ( mảng một chiều )
2. tìm giá trị lớn nhất hoặc giá trị nhỏ nhất ( mảng một chiều )
3.xóa hoặc chèn phần tử ( mảng một chiều)
4. tìm một phần tử K ( trong mảng một chiều )
m.n giúp e với ạ
1. tính trung bình các số thỏa mãn điều kiện ( mảng một chiều )
2. tìm giá trị lớn nhất hoặc giá trị nhỏ nhất ( mảng một chiều )
3.xóa hoặc chèn phần tử ( mảng một chiều)
4. tìm một phần tử K ( trong mảng một chiều )
cau 1)
rogram bai_tap;
uses crt;
var n,i:byte;
a:array[1..100] of real;
tb,s:real;
begin
clrscr;
write('nhap so luong phan tu cua mang: ');
readln(n);
for i:= 1 to n do
begin
write('A[',i,'] = ');
write(a[i]);
end;
s:=0;
for i:= 1 to n do
s:=s+a[i];
tb:= s/n;
write('so trung binh: ',tb:4:2);
readln
end;
Đúng 0
Bình luận (0)
cau3)
program bai_tap;
uses crt;
var n,i:byte;
b,chen:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so luong phan tu cua mang: ');
readln(n);
for i:= 1 to n do
begin
write('A[',i,'] = ');
write(a[i]);
end;
write('nhap gia tri can chen: ');
readln(chen);
write('nhap vi tri can chen: ');
readln(b);
for i:= n+1 downto b+1 do
a[i]:=a[i-1];
a[b]:=chen;
for i:= 1 to n+1 do
write(a[i]:4);
readln
end.
xóa cũng tương tụ kiểu như vậy
Đúng 0
Bình luận (0)
câu 4)
program bai_tap;
uses crt;
var n,i:byte;
k:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so luong phan tu cua mang: ');
readln(n);
for i:= 1 to n do
begin
write('A[',i,'] = ');
write(a[i]);
end;
write('nhap gia tri phan tu K: ');
readln(K);
for i:= 1 to n do
if a[i] = k then
begin
write('vi tri cua K la: ',i);
break; {vì tìm 1 phần tử}
end;
readln
end.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
tính trung bình thỏa mãn điều kiện( mảng một chiều )
Giúp mình BTVN môn Tin 11 Pascal với:
Có sẵn một dãy số,hãy viết 1 chương trình nhập một số x rồi xem có bao nhiêu phần tử trong dãy lớn hơn x hay không?
*Cô giáo mình hướng dẫn là:var là Real;không phải dạng vòng lặp;so sánh A[i] và x;A[i]>x->d:=d+1
1. Viết chương trình nhập vào một mảng số nguyên kích thước M*N. In ra những số chỉ có chỉ số dòng bằng chỉ số cột và tích của chúng.
3. Viết chương trình nhập vào 2 mảng 1 chiều gồm n số thực. In ra một mảng n số của mỗi phần tử là tổng cua2 hai phần tử tương ứng của hai mãng đã nhập.