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.
Câu D nha
t nhớ t tô đậm r thế mà 2 , 3 lần vẫn k đc:))vi diệu thật
nhưng mảng a chỉ có tối đa 4 phần tử thì làm gì còn nữa đâu mà các phần tử khác không xác định
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);
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.
Câu 1:
Câu 2:
a) A:array[1..5] of Real;
b) A[5]:=8;
c) A:array[1..50] of Integer;
d) Readln(A[2]);
Program HOC24;
var a: array[1..50] of integer;
i,n: byte;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Cac phan tu chan trong mang la: ');
for i:=1 to n do
if a[i] mod 2=0 then
begin
write(a[i],' ');
t:=t+a[i];
end;
writeln;
write('Tong cac phan tu chan trong day la: ',t);
readln
end.
uses crt;
var i,n,k:integer;
a:array[1..100]of integer;
kt:boolean;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
writeln;
readln(k);
kt:=false;
for i:=1 to n do
if a[i]=k then kt:=true;
if (kt=true) then write('Co k trong mang')
else writeln('Khong co k trong mang');
readln;
end.
Program HOC24;
var i,n: byte;
t: longint:
a: array[1..50] of integer;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do begin write('A[',i,']='); readln(a[i]); end;
t:=0;
write('Cac phan tu chan co trong mang la: ');
for i:=1 to n do
if a[i] mod 2=0 then
begin
write(a[i],' ');
t:=t+a[i];
end;
writeln;
write('Tong cac phan tu chan do la: ',t);
readln
end.
Cho mảng a như sau:
Chỉ số: 5 6 7 8 9
Lệnh Readln(a[5]); dùng để nhập giá trị cho phần tử nào trong mảng a?
A. Phần tử thứ 5 trong mảng a (phần tử đầu tiên trong mảng a là phần tử thứ nhất)
B. Phần tử có chỉ số phần tử là 5 trong mảng a
C. Phần tử đầu tiên trong mảng a
D. Tất cả đều đúng