Viết chương trình tính tổng của bốn số nhập từ bàn phím ( nếu số nhập vào là số âm thì không cộng và thông báo có bao nhiêu số âm vừa nhập vào). Ví dụ: nhập 1, 8, -5, 9 thì kết quả là: Tổng các số không âm là 18. Có 1 số âm.
2 câu trả lời
program bai_giai;
uses crt;
var a:array[1..4]of longint; i,s,dem:longint;
begin
clrscr;
dem:=0;
s:=0;
for i:=1 to 4 do
begin
write('nhap so thu ',i);readln(a[i]);
if(a[i]>0)then s+s+a[i]else inc(dem);
end;
writeln('tong cac so khong am la:',s);
write(co ',dem,' so am');
readln
end.
uses crt;
var i,s,d:longint; n:array[1..4]of longint;
begin
clrscr;
write('Nhap vao 4 so: ');readln(n[1],n[2],n[3],n[4]);
for i:=1 to 4 do
if n[i]>=0 then s:=s+n[i] else inc(d);
writeln('Tong cac so khong am: ',s);
writeln('Co ',d,' so am');
readln
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
