Những câu hỏi liên quan
Trần Quốc Huy
Xem chi tiết
Phạm Thanh Tường
8 tháng 5 2017 lúc 20:49

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.

Bình luận (0)
nam_XD
Xem chi tiết
TV Cuber
18 tháng 3 2022 lúc 10:42

.Để 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]= '))

Bình luận (0)
Lê Hà Vy
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 13:27

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.

Bình luận (0)
hamhochoi
Xem chi tiết
Hồ Ngọc Thiện
Xem chi tiết
Dương Quốc Học
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 6 2020 lúc 21:54

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.

Bình luận (0)
Hường Nguyễn Thị Thu
Xem chi tiết
ngyen
8 tháng 5 2023 lúc 23:33

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.

Bình luận (0)
Hiếu Ngô
Xem chi tiết
Nhuận Nguyễn
Xem chi tiết
Đỗ Tuệ Lâm
20 tháng 4 2022 lúc 6:52

tham khảo:

undefined

Bình luận (0)