Đ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 s

Đ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.

0 bình luận về “Đ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 s”

  1. 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.

    Bình luận
  2. Đá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.

    Bình luận

Viết một bình luận