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à:

Program HelloWorld(output);
Var a,b :array[1..100] of integer;
i,n,s,d:integer;
begin
write(‘Nhap n= ’); readln(n);
For i:=1 to n do
Begin
Write(‘a[‘,i,’]=’); readln(a[i]);
End;
s:=0;
for i:=1 to n do
if (a[i]mod 2=1) then s:=s+a[i];
write(‘tong so le ’,s);

d:=0;
for i:=1 to n do
if (a[i]mod 3=0) then d:=d+1;
write(‘so luong so chia het cho 3: ’,d);
For i:=1 to n do b[i]:=2*a[i];
For i:=1 to n do write(b[i]:4);
readln
end.

code này sai chỗ nào vậy mn ?, giúp em sửa với ạ.

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);

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 = 1 then S := S+a[i];

Write(S);

Kết quả hiện ra màn hình là:

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);

Cho đoạn chương trình sau:

S := 0 ;

FOR i := 1 to 10 DO

IF (i mod 3=0) or (i mod 5=0) THEN S := S + 1 ;

Sau khi thực hiện, S có giá trị?

Cho đoạn chương trình sau:

S := 0 ;

FOR i := 1 to 10 DO

IF (i mod 3=0) or (i mod 5=0) THEN S := S + i ;

Sau khi thực hiện, S có giá trị?

Cho đoạn chương trình sau:

S := 0 ;

FOR i := 1 to 10 DO

IF i mod 2 = 1 THEN S := S + 1 ;

Sau khi thực hiện, S có giá trị?