Điền vào chỗ trống :
program Tong_le;
uses crt;
var A:array[1..100] of integer;
i,n,tong:……(1)
begin
clrscr;
write(‘Nhap do dai cua day so,N =’); readln(n);
writeLn(‘Nhap cac phan tu cua day so:’);
For i:= 1 to….(2) do
begin
Write(‘A[‘ ,i, ‘]=’);readln(A[i]);
end;
tong:=0;
For i:= 1 to n do
if A[i] mod 2=…..(3) then tong:= tong+….(4)[i];
writeln(‘Tong cac gia tri le la:’,tong);
readln;
end.
program Tong_le;
uses crt;
var A:array[1..100] of integer;
i,n,tong:integer;
begin
clrscr;
write(‘Nhap do dai cua day so,N =’);
readln(n); writeLn(‘Nhap cac phan tu cua day so:’);
For i:= 1 to n do
begin
Write(‘A[‘ ,i, ‘]=’); readln(A[i]);
end;
tong:=0;
For i:= 1 to n do
if A[i] mod 2=1 then tong:= tong+A[i];
writeln(‘Tong cac gia tri le la:’,tong);
readln;
end.
Đáp án: Như phần “Giải thích các bước giải”
Giải thích các bước giải:
Program Tong_le;
Uses crt;
Var A:array[1..100] of integer;
i,n,tong: integer(1)
Begin
Clrscr;
Write(‘Nhap do dai cua day so,N =’); Readln(n);
WriteLn(‘Nhap cac phan tu cua day so:’);
For i:= 1 to n(2) do
Begin
Write(‘A[‘ ,i, ‘]=’); Readln(A[i]);
End;
tong:=0;
For i:= 1 to n do if A[i] mod 2= 1(3) then tong:= tong+ a(4)[i];
Writeln(‘Tong cac gia tri le la:’,tong);
Readln;
End.