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
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â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.
e chào mn ạ, mn giúp e những câu này với ạ:((
1. Viết lệnh khai báo (khai báo trực tiếp) mảng một chiều A nguyên gồm 100 phần tử?
2. Để tham chiếu đến phần tử thứ 10 của mảng A ta viết.....................................................................
3. Viết chương trình cho bài toán đặt vấn đề với số ngày bất kỳ
4. Viết chương trình đếm các phần tử chẵn của mảng
Bài 1:
var a:array[1..100]of integer;
Bài 4:
uses crt;
var n,i,dem: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;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln('so phan tu chan trong day la: ',dem);
readln;
end.
1) var A: array [1..100] of integer;
2) Ta viết: A[10];
3) Không hiểu đề cho lắm
4) Chương trình:
uses crt;
var chan,n,i:integer;
a: array [1..100] of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:= 1 to n do begin
write('Nhap so thu ',i,': '); readln(a[i]); end;
chan:= 0;
for i:= 1 to n do
if a[i] mod 2 = 0 then chan:= chan + 1;
write('So cac phan tu chan: ',chan);
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: 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 !!!
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.
Trình bày cú pháp khai báo biến mảng trong hệ xuân ANATOMY. Áp dụng:Viết câu lệnh khai báo biến mảng lưu điểm TB môn tin của 45 học sinh lớp 9A và viết câu lệnh nhập giá trị cho các phần tử tỏng mảng vừa khai báo GIÚP MIK VS MN MAI MIK THI RỒ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!