Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Minasua Yagami

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.

Trần Ái Linh
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.


Các câu hỏi tương tự
Minh Duy
Xem chi tiết
Mai Phương Lê
Xem chi tiết
Hải Hà
Xem chi tiết
erddedfrferf ffvf fd
Xem chi tiết
Tuoi tom May
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Lê Thùy Dương
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Phan Hồng Anh
Xem chi tiết