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ễ ạ
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
8 tháng 5 2017
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.
TC
18 tháng 3 2022
.Để 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]= '))
5 tháng 5 2021
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.
19 tháng 6 2020
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.
HN
0
NN
1
