Question

1.vct nhập vào 1 dãy số nguyên gồm n phần tử (n>=10). tính tích các phần tử trong mảng chỉ 1 đến 8

2. vct nhập vào 1 dãy số nguyên gồm n phần tử (n>=10). tính tổng các phần tử trong mảng chỉ 1 đến 5

Answer 1

USES CRT;

VAR A:ARRAY[1..100] OF INTEGER;

N,I:INTEGER;

S:LONGINT;

BEGIN

CLRSCR;

WRITE('NHAP SO PHAN TU: ');

READLN(N);

FOR I:=1 TO N DO

BEGIN

WRITE('A[',I,']=');

READLN(A[I]);

END;

S:=1;{VI KHI NHAN VOI 1 THI MOI RA KET QUA NHA BAN}

FOR I:=1 TO 8 DO S:=S*A[I];{CO THE THAY 8 THANH 5 DE LAM CAU 2}

WRITELN('TONG CAC PHAN TU TRONG MANG TU 1 DEN 8 LA: ',S);

READLN

END.

Answer 2

Trương Quang Dũng giúp mk vs

Answer 3

bạn dùng lập trình nào