13. Viết nhập Pascal chirơng vào N và một dãy gồm N số nguyên. Sau đó trong màn hình các số có thể có trong số dãy.
14. Viết chương trình Pascal nhập vào N và một dãy gồm N số nguyên. Sau đó trong màn hình Tổng số lẻ có trong số dãy.
15. Viết chương trình Pascal dựa vào thuật toán sau:
Bước 1: Tong 0; k = 1;
Bước 2: Nếu k> = 10, chuyển tới bước 4
Bước 3: Tong – Tong + k; ký k + 1 và quay lại bước 2
Bước 4: Trong Tong giá trị và kết thúc thuật toán.
13. Viết nhập Pascal chirơng vào N và một dãy gồm N số nguyên. Sau đó trong màn hình các số có thể có trong số dãy. 14. Viết chương trình Pascal n
By Faith
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