Giả sử mảng a gồm các phần tử a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5.
Xét đoạn chương trình sau:
S := 0;
For i := 1 to 5 do
If a[i] mod 2 = 0 then S := S+a[i];
Write(S);
Kết quả hiện ra màn hình là:
A. S=6
B. 6
C. 9
D. S=9
Giả sử mảng a gồm các phần tử a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5.
Cho biết kết quả sau khi thực hiện đoạn chương trình sau:
D:=0;
FOR i:=1 to 5 DO
IF a[i] mod 2 = 0 THEN D:= D + 1;
writeln(‘D = ’,D);
A. D = 2
B. 2
C. 3
D. D = 3
Giả sử mảng a gồm các phần tử a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5.
Cho biết kết quả sau khi thực hiện đoạn chương trình sau:
S:=0;
FOR i:=1 to 5 DO
IF a[i] mod 2 = 0 THEN S:=S+a[i];
writeln(‘S = ’,S);
A. 6
B. S = 6
C. 9
D. S = 9
Giả sử mảng a gồm các phần tử a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5.
Cho biết kết quả sau khi thực hiện đoạn chương trình sau:
S:=0;
FOR i:=1 to 5 DO
IF a[i] mod 2 = 1 THEN S:=S+a[i];
writeln(‘S = ’,S);
A. 6
B. S = 6
C. 9
D. S = 9
Giả sử mảng a gồm các phần tử a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5.
Cho biết kết quả sau khi thực hiện đoạn chương trình sau:
D:=0;
FOR i:=1 to 5 DO
IF a[i] mod 2 = 1 THEN D:=D+1;
writeln(‘D = ’,D);
A. D = 2
B. 2
C. 3
D. D = 3
Viết chương trình: Bài 1. Nhập mảng A gồm n phần tử, rồi in mảng đó ra màn hình. Bài 2. Nhập mảng A gồm n phần tư, rồi in tổng các phần tử mảng đó ra màn hình. Bài 3. Nhập mảng A gồm n phần tử, rồi in tổng các phần tử dầu và phần tủ cuối của mảng đó ra màn hình. Cần gấp ạaa
Bài 2:
Uses crt;
Var a:array[1..200]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
if a[i] mod 2=0 then t:=t+a[i];
writeln(t);
readln;
end.
Bài 1. Nhập mảng A gồm n phần tử, rồi in mảng đó ra màn hình.
program BaiTap;
var
A: array[1..150] of integer;
N, i: integer;
begin
write('Nhap so phan tu cua mang A (N <= 150): ');
readln(N);
for i := 1 to N do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
writeln('Mang A vua nhap la:');
for i := 1 to N do
write(A[i], ' ');
readln;
end.
Bài 2. Nhập mảng A gồm n phần tư, rồi in tổng các phần tử mảng đó ra màn hình.
program BaiTap;
var
A: array[1..150] of integer;
N, i, sum: integer;
begin
write('Nhap so phan tu cua mang A (N <= 150): ');
readln(N);
for i := 1 to N do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
sum := 0;
for i := 1 to N do
sum := sum + A[i];
writeln('Tong cac phan tu trong mang la: ', sum);
readln;
end.
Bài 3. Nhập mảng A gồm n phần tử, rồi in tổng các phần tử dầu và phần tủ cuối của mảng đó ra màn hình.
program BaiTap;
var
A: array[1..150] of integer;
N, i, sum: integer;
begin
write('Nhap so phan tu cua mang A (N <= 150): ');
readln(N);
for i := 1 to N do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
sum := A[1] + A[N];
writeln('Tong cua phan tu dau va cuoi mang la: ', sum);
readln;
end.
Bài 1
Sửa đề: Thêm điều kiện của các phần tử trong mảng là số
Var a:array[1..1000] of real;
i,n:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
End;
Write('Cac phan tu vua nhap la ');
For i:=1 to n do
Write(a[i]:10:2);
Readln
End.
. Giả sử ta có biến mảng A lần lượt có các giá trị của phần tử sau: a Giá trị 5 8 9 5 3 5 Chỉ số 1 2 3 4 5 6 Ta có câu lệnh S:=0; S:=S+a[1]+a[6] thì giá trị S sẽ bằng bao nhiêu: A. 8 B. 9 C. 10 D. 11
Cho biến mảng a gồm tối đa 4 phần tử, phàn tử đầu tiên có chỉ số phần tử là 3, biến mảng a có giá trị là 34;30;56;72. Phát biểu nào sau đây đúng?
A. a[1]=34, a[2]=30, a[3]=56, a[4]=72
B. Chỉ có các phần tử a[3], a[4], a[5], a[6] là có giá trị, các phần tử khác không xác định
C. a[3]=34, a[4]=30, a[5]=56, a[6]=72
D. Cả B và C đều đúng
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
Giả sử biến mảng A có 5 phần tử và giá trị của các phần tử lần lượt là 1, 4, 7, 2, 6. Khi thực hiện câu lệnh sau: tb := 0; For i := 1 to 5 do tb := tb + A[i]; Giá trị của biến tb là bao nhiêu?
A. 20
B. 18
C. 21
D. 22
