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.
b.
```python
for i in range(30):
DTB[i] = float(input(f"Nhập điểm của học sinh thứ
{i+1}: "))
c.
```python max_DTB = DTB[0] for i in range(1,
30): if DTB[i]> max_DTB: max_DTB = DTB[i] là:",
max_DTB)
print("Điểm cao nhất trong mảng DTB
Program HOC24;
var i,n,d: integer;
a: array[1..32000] of integer;
t1,t,t0: longint;
begin
write('Nhap N: '); readln(n);
t:=0; t0:=0; t1:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if a[i]>0 then t:=t+a[i];
if a[i]<0 then t1:=t1+a[i];
if ai=0 then t0:=t0+1;
end;
writeln('Tong cac so duong la: ',t);
writeln('Tong cac so am la: ',t1);
write('Co ',t0,' so 0 trong day');
readln
end.
uses crt;
var a:array[1..100]of integer;
i,n,dem,t1,t2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t1:=0;
t2:=0;
dem:=0;
for i:=1 to n do
begin
if a[i]>0 then t1:=t1+a[i];
if a[i]<0 then t2:=t2+a[i];
if a[i]=0 then inc(dem);
end;
writeln('Tong cac so duong la: ',t1);
writeln('Tong cac so am la: ',t2);
writeln('So so 0 la: ',dem);
readln;
end.
2em đồng tình với quan điểm này, vì sự phát triển của máy tính đã giúp con người làm việc nhanh hơn, chính xác hơn, dễ dàng lưu trữ và xử lí thông tin, đồng thời còn mở rộng khả năng giao tiếp, học tập và giải trí nên máy tính đã trở thành công cụ không thể thiếu trong học tập, nghiên cứu, sản xuất và đời sống hằng ngày
3
-1940 – 1956: máy tính dùng đèn điện tử, kích thước rất lớn, con người chủ yếu nhập dữ liệu bằng thẻ đục lỗ
- 1956 – 1963: máy tính dùng transistor, nhỏ hơn, nhanh hơn, giao tiếp bằng ngôn ngữ lập trình bậc thấp
- 1964 – 1971: dùng mạch tích hợp (IC), giao tiếp bằng ngôn ngữ lập trình cấp cao hơn
- 1971 – nay: dùng vi xử lí (microprocessor), máy tính nhỏ gọn, dễ dùng, giao tiếp bằng giao diện đồ họa (chuột, bàn phím, màn hình)
- hiện đại, đang phát triển: trí tuệ nhân tạo (AI), máy tính có khả năng học hỏi, giao tiếp gần gũi với con người qua giọng nói, hình ảnh, trợ lý ảo
Lời giải :
Câu 1 :
a) So=1 (vô hạn lần)
b) In ra màn hình dãy số từ 1 đến 20
Câu 2 :
a) Vòng lặp chạy 3 vòng , A=12
Program hotrotinhoc;
var n,A: integer;
begin
n:=2; A:=0;
while A<9 do
begin
n:=n+1;
A:=A+n;
end;
write('A=',A);
readln
end.
b) Bạn xem lại đề nha
Câu 3 : ( ) = lỗi sai
a) X:=10; while X(:)=10 do X:=X+5;
b) X:=10; while X=10 do X(thiếu dấu :)=X+5;
c) S:=0; n:=0; while S<=10 do (thiếu begin) n:=n+1; S:=S+n; (thiếu end;)
Câu 4 :a) var X: Array[10,13] Of Integer; (S)
b) var X: Array[5..10.5] Of Real; (S)
c) var X: Array[3.4..4.8] Of Integer; (S)
d) var X: Array[10..1] Of Integer; (S)
e) var X: Array[4..10] Of Real; (Đ)
Câu 5 :
program hotrotinhoc ;
var a : array[1..32000] of real ;
i,n : integer ;
begin
write('Nhap do dai cua day :'); readln(n);
writeln('Nhap gia tri cua cac phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:= 1 to n do
while (1>=a[i]) or (a[i]>=100) do
begin
write('Nhap lai a[',i,']='); readln(a[i]);
end;
readln
end.
Bài 6 : Bạn tham khảo ở mục câu hỏi tương tự
Bài 7 :
Program hotrotinhoc;
var a: array[1..32000] of integer ;
i,n,min,max,tong : integer ;
begin
write('Nhap do dai cua day :'); readln(n);
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1]; min:=a[1];
for i:= 2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
write('so lon nhat la :',max);
write('So be nhat la:',min);
tong:=0;
for i:= 11 to 199 do tong:=tong+a[i];
write('Tong la :',tong);
readln
end.
Đáp án B