Thủ tục nào sau đây dùng để đọc dữ liệu từ biến Tepa:
A. Read(Tepa, A; B; C); B. Read('Tepa', A, B, C);
C. Read(Tepa, A, B, C); D. Read(Tepa; A, B, C);
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ập dữ liệu từ bàn phím cho mảng A có 10 phần tử là số nguyên ta dùng lệnh lặp với số lần biết trước là For..do, câu Readln (A[i]) là nhập dữ liệu từ bàn phím cho từng phần tử.
Đáp án: A
uses crt;
var a:array[1..100]of integer;
i,n,dem,t,tb:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
t:=0;
for i:=1 to n do
if a[i]>0 then
begin
dem:=dem+1;
t:=t+a[i];
end;
writeln('So luong phan tu duong la: ',dem);
writeln('Tong cac phan tu duong la: ',t);
writeln('Trung binh cac phan tu duong la: ',t/dem:4:2);
readln;
end.
Assign(f1,’dulieu.txt’);
Reset(f1);
Read(f1,a,b);
Close(f1);
Câu 1:
readln hoặc read được dùng để đọc dữ liệu
Câu 2: Kiểu dữ liệu byte
Câu 3:
Có nghĩa khai báo a kiểu thực, còn b là kiểu kí tự
C. Read(Tepa, A, B, C);
Chọn C nhé bạn vì câu A có dấu chấm phẩy nên không hợp lệ, câu B có dấu '' ở tên biến cũng không hợp lệ và câu D có dấu chấm phẩy nên cũng không hợp lệ