B13:
Var a:array[1..1000] of integer;
i,n,tl:integer;
Begin
Clrscr;
Write('Nhap so ptu N = '); Readln(n);
For i:= 1 to n do
Begin
Write('Nhap a[',i,']= '); Readln(a[i]);
End;
Writeln('Tong cac so le trong day la: ');
For i:= 1 to n do write(a[i]:3);
Readln
End.
B14:
Var a:array[1..1000] of integer;
i,n,tl:integer;
Begin
Clrscr;
Write('Nhap so ptu N = '); Readln(n);
For i:= 1 to n do
Begin
Write('Nhap a[',i,']= '); Readln(a[i]);
End;
For i:= 1 to n do If a[i] mod 2 <> 0 then tl:=tl+a[i];
Writeln('Tong cac so le trong day la: ');
Write(tl:3);
Readln
End.
B15: (Đây là mình viết chương trình dựa theo thuật toán mà bạn hỏi nha! Nếu nó sai thì có lẽ bài toán đó sai nhá :D)
Uses Crt;
Var Tong,k:integer;
Begin
Clrscr;
Tong:=0; k:=1;
While k<10 do
Begin
Tong:=Tong+k;
k:=k+1;
End;
Writeln('Vay tong do = ',Tong);
Readln
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhé! Thank kiu :333