cứu mình với mình cần lẹ nha, cảm ơn m
viết phương trình nhập vào một mảng số nguyên x từ bàn phím. đưa ra thông tin báo tính giá trị của biểu thức : ( x-1) mũ 3
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
ST
0
ML
17 tháng 4 2022
Program HOC24;
var d,N,i: integer;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=0; d:=0;
for i:=1 to n do
begin
t:=t+a[i];
if a[i]>0 then d:=d+1;
end;
writeln('Tong day so la: ',t);
write('Co ',d,' so nguyen duong');
readln
end.