Em hãy khai báo biến mảng điểm tin gồm 10 phần tử. nhập dữ liệu cho điểm tin biết phần tử đầu tiên và phần tử cuối cùng luôn mang trị bằng 5.các phần tử còn lại mang giá trị bất kì được nhập vào từ bàn phím.mọi người giúp em với ạ.Em xin chân thành cảm ơn mọi người ạ !
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
ML
22 tháng 4 2022
Program HOC24;
var a: array[1..1000] of integer;
i,n,d: integer;
tbc: real;
t: longint;
begin
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 cac phan tu cua mang la: ',t);
d:=0;
for i:=1 to n do if a[i]=5 then d:=d+1;
writeln('Co ',d,' phan tu co gia tri bang 5');
tbc:=0;
for i:=1 to n do if a[i] mod 2=1 then tbc:=tbc+a[i];
tbc:=tbc/n;
writeln('Trung binh cong cac phan tu le la: ',tbc:6:2);
write('Mang sau khi thay la: ');
for i:=1 to n do if a[i]=0 then a[i]:=10;
for i:=1 to n do write(a[i],' ');
readln
end.
NA
Nguyễn An Ninh
VIP
15 tháng 5 2023
'''python
a. DTB = []
siso = int(input("Nhập số lượng học sinh trong lớp: "))
b. for i in range(siso):
diem = float(input(f"Nhập điểm của học sinh thứ {i+1}: "))
DTB.append(diem)
c. tong=sum(DTB)
d. print(f"Tổng điểm của lớp là: {tong}")'''
7 tháng 5 2021
Câu 1:
a) var a:array[1..50]of real;
b) a[5]:=8;
c) for i:=1 to 50 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 50 do
write(a[i]:4);
7 tháng 5 2021
Câu 2:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln(s);
readln;
end.
4 tháng 5 2021
uses crt;
var b:array[1..25]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('B[',i,']='); readln(b[i]);
end;
readln;
end.
14 tháng 6 2020
1: var b:array[5..95]of real;
2: for i:=10 to 20 do
begin
write('B[',i,']='); readln(b[i]);
end;
var a:array[1..10]of real;
i,n:integer;
begin
readln(n);
for i:=1 to 10 do readln(a[i]);
end.
đúng ra thì tất cả dữ liệu ở trên khong cùng 1 hàng đựt :>