Câu 1:cho dãy số 15 10 -4 9 -25 7 32
a, viết khai báo 1 biến mảng 1 chiều để lưu dãy số trên?
b, viết tham chiếu đến phần tử thứ 5 của dãy số?
Câu1:Cho dãy số 15 10 -4 9 -25 7 32
a, viết khai báo 1 biến mảng 1 chiều để lưu dãy số trên?
b, viết tham chiếu đến phần tử thứ 5 của dãy số?
Giúp e vs ạk.♥
Mai e kt r
a. var a: array[1..7] of integer;
b.
a[1]=15;
a[2]=10
a[3]=-4
a[4]=9
a[5]=-25
Câu 1. Cho một dãy số gồm n số nguyên (cả âm và dương) với n<=100. Hãy khai báo biến mảng trên?
Câu 2. Viết chương trình nhập từ bàn phím một dãy gồm 10 số. Đưa ra màn hình số nhập thứ 5.
Câu 3. Viết chương trình nhập vào một mảng A (tối đa 15 giá trị) là các số nguyên (Ai<=100)
a) In mảng đã nhập (Mỗi giá trị cách nhau 1 dấu cách)
b) Tính tổng các phần tử chia hết cho 3
c) In ra màn hình các số chẵn ở vị trí lẻ trong dãy
huhu giúp mình với TT
Câu 1:
var a:array[1..100]of integer;
Câu 2:
uses crt;
var a:array[1..10]of integer;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 10 do
write(a[i]:4);
readln;
end.
Câu 3:
uses crt;
var a:array[1..15]of integer;
i,n,t:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=15);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]<=100;
end;
writeln('Mang da nhap la: ');
for i:=1 to n do
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('Tong cac phan tu chia het cho 3 la: ',t);
writeln('Cac so chan o vi tri le trong day la: ');
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2=1) then write(a[i]:4);
readln;
end.
Câu 1: Viết cú pháp lệnh khai báo biến mảng? Khai báo 2 biến x,y kiểu mảng có 50 phần tử nguyên. Câu 2: Viết chương trình nhập vào một dãy (mảng) gồm n số và in ra các số chia hết cho 3 đã nhập. Em hãy thực hiện các yêu cầu sau (không viết chương trình): - Em hãy xác định input, output của bài toán - Em hãy khai báo các biến sử dụng trong bài trên Câu 3: Viết chương trình nhập vào n, tính tổng S=1+2+..+n (bằng lệnh while) Giúp mình với đang cần gấp :
câu 1 : Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số . Độ dài dãy số cũng được nhập từ bàn phím .
câu 1:Hãy sử dụng biến mảng gồm 10 phần thể để lập trình theo yêu cầu sau:
khai báo biến mảng
nhập giá trị cho 10 phần tử của mảng
tính tổng các số chẵn lớn hơn 0 trong dãy phần tử số nguyên đã nhập
câu 2:nhà sách trước cổng trường An thường nhập bút, sách ,vở báo, truyện,... để bán cho học sinh .Biết rằng giá mỗi cây bút bi Thiên Long là 3000VNĐ và mỗi lần nhập không quá 250 cây bút.
a)hãy xác định bài toán
b)viết chuong trình tính tiền but thiên long nhập về nhà sách
junpham2018 nên gọi là chị / anh . Em chưa học lớp 8 đâu đừng có mà mơ em trả lời
viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy số nguyên. Độ dài của 1 dãy cũng được nhập từ bàn phím. Sắp xếp và biểu thị dãy theo thứ tự giảm dần
tham khảo:
uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
write(‘nhap so phan tu cua day:’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
end;
writeln(‘day so da nhap:’);
for i:=1 to n do write(a[i]:2);
readln;
end.
tham khảo
uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
write(‘nhap so phan tu cua day:’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
end;
writeln(‘day so da nhap:’);
for i:=1 to n do write(a[i]:2);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,tam,j:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
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.
Câu 1: Khai báo biến mảng có tên bất kỳ gồm 10 phần tử. Mỗi phần tử lưu tên mỗi học sinh.
Câu 2: Giả sử có mảng có tên là A gồm 10 phần tử, viết lệnh để gán giá trị phần tử thứ nhất có giá trị là 4, phần tử thứ 10 có giá trị là 16.
Giúp mk với !!!
Bài 5: Cho dãy số: 1, 2, 4, 5, 7, 8, 10, 11, 13, 14, … Tìm số hạng thứ 30 của dãy số trên.
Bài 6: Cho dãy số: 1, 8, 15, 22, 29, 36, … Tìm số hạng thứ 100 của dãy số trên.
Bài 7: Cho dãy số: 1, 2, 5, 6, 9, 10, 13, 14, … Tìm số hạng thứ 101 của dãy số trên.
Cho 1 mảng ( dãy số ) có 10 phàn tử là các số nguyên bất kì . Viết chương trình : a) In ra các phần tử chẵn có trong dãy số b) Tính tổng các phần tử lẻ trong dãy số
giúp mik với mai thi mik thi rồi🙏🙏
program b1;
uses crt;
var i: integer; a:array[1..100] of integer; s:longint;
begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,']='); readln(a[i]);
end;
writeln('cac phan tu chan la:');
s:=0;
for i:=1 to 10 do if a[i] mod 2=0 then writeln(a[i],' ');
write('Tong cac phan tu le la:');
for i:=1 to 10 do if a[i] mod 2<>0 then s:=s+a[i]; write(s);
readln;
end.
Tham khảo!