MY

Bài 2. Viết CT nhập vào một mảng n số. In ra màn hình các giá trị tổng, tích các phần tử của dãy. Đếm số lượng các số chẵn và lẻ trong dãy.

TL
17 tháng 6 2021 lúc 16:59

program im_14424;

uses crt;

var A: array[1..9999999] of interger;

S,P : integer;

i,n: byte;

begin

clrscr;

S:=0;

P:=0;

for i:=1 to n do

begin

write('Nhap vao phan tu thu: ',i,);

readln(A[i]);

S:=S+A[i]

P:=P*A[i]

end;

writeln(S);

write(P);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
MD
Xem chi tiết
ML
Xem chi tiết
HH
Xem chi tiết
EF
Xem chi tiết
TM
Xem chi tiết
NH
Xem chi tiết
LD
Xem chi tiết
NH
Xem chi tiết
PA
Xem chi tiết