Ðề tài: Giúp Em Giải Cái Bài Này Giùm Hén

Cho 1 mảng gồm 10 phần tử. Lập trình tính tổng các số âm:surrender:
tks nhiều hén!!!!!!!!!!!

View more random threads:

• Phân biệt CSDL tập trung và CSDL phân tán?
• Sự cố mạng chia sẻ
• CPU1, CPU1 core, CPU0 core là gì
• [C++] Xin Tài Liệu
• Cho tớ hướng dẫn sử dụng máy tính Casio fx 9860G SD
• Nhờ down Perfect Keylogger 1.67
• [Giúp] Lập trình Pascal
• Những câu hỏi thường gặp khi chọn mua máy tính
• Về :Cấn tìm Software Scan File (.txt)
• Config.msi la gì vậy các pro

Nguồn: http://diendankienthuc.net.

Nguyên văn bởi pkphan

Cho 1 mảng gồm 10 phần tử. Lập trình tính tổng các số âm:surrender:
tks nhiều hén!!!!!!!!!!!

var A:array[1..10] of real;
S: real;
i: byte;
begin
S:=0;
for i:=1 to 10 do
begin
writeln('Nhap phan tu thu', i);
readln(A[i]);
if A[i]<0 then S:=S+A[i];
end;
writeln('Tong S=',S);
readln
end. Nguồn: http://diendankienthuc.net.