mn cho mk hỏi sử dụng biến mảng là j cách nào để sử dụng biến mảng dễ ạ
Sử dụng biến mảng để ghi ra màn hình tổng biến mảng và các phần tử nhỏ hơn tổng biến mảng Aigiups em với mai thi rồi
program phan_tu;
uses crt;
var i, n: integer;
s: real;
a: array[1..100] of real;
begin
write('Nhap do dai cua day so: '); readln(n);
for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end;
s:=0
for i:=1 to n do s:=s + a[i];
for i:=1 to n do if a[i] < s then writeln('a[',i,']=', a[i]);
readln;
end.
.Để in giá trị của phần tử thứ 6 trong biến mảng, ta sử dụng câu lệnh nào?
print(A[5])
print(A[i])
print(A[6])
print(A[i+1])
Khai báo nào là đúng trong các khai báo sau đây:
tuoi = [1]*n
tuoi : [2]-n
tuoi = [3]+n;
tuoi := [0]/n
Cho khai báo mảng như sau:
a = [0]*n
Để nhập giá trị cho phần tử thứ 20 của mảng a từ bàn phím, ta viết:
a=eval(input('a[21]= '))
a=eval(input('a[18]= '))
a=eval(input('a[19]= '))
a=eval(input('a[20]= '))
giúp em với
.Để in giá trị của phần tử thứ 6 trong biến mảng, ta sử dụng câu lệnh nào?
print(A[5])
print(A[i])
print(A[6])
print(A[i+1])
Khai báo nào là đúng trong các khai báo sau đây:
tuoi = [1]*n
tuoi : [2]-n
tuoi = [3]+n;
tuoi := [0]/n
Cho khai báo mảng như sau:
a = [0]*n
Để nhập giá trị cho phần tử thứ 20 của mảng a từ bàn phím, ta viết:
a=eval(input('a[21]= '))
a=eval(input('a[18]= '))
a=eval(input('a[19]= '))
a=eval(input('a[20]= '))
Viết chương trình pascal sử dụng biến mảng để nhập và tính tổng 10 số tự nhiên liên tiếp
uses crt;
var a:array[1..10]of integer;
n,i,t:integer;
begin
clrscr;
n:=10;
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
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 dãy N số thực
Viết chương trình sử dụng biến mảng để sắp xếp n số nguyên nhập từ bàn phím ; ai giúp mk với mk cần gấp ; THANKS
uses crt;
var a:array[1..100]of integer;
i,n,j,tam:integer;
begin
clrscr;
write('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
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('tang dan: ');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln('giam dan: ');
for i:=n downto 1 do
write(a[i]:4);
readln;
end.
Viết chương trình pascal sử dụng biến mảng để nhập vào một dãy số và in ra tổng của dãy số đó
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day so la: ',t);
readln;
end.
Viết Chương trình sử dụng biến mảng nhập vào N số nguyên(N
Viết chương trình và tích số N đầu tiên và sử dụng biến mảng