viết chương trình nhập vào 1 mảng số nguyên in ra trung bình cộng các số khác 0 trong mảng
1 câu trả lời
program bai_giai;
uses crt;
var n,i,dem:longint;a:array[1..1000]of longint;s:real;
begin
clrscr;
write('n=');readln(n);
s:=0;
dem:=0;
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
if(a[i]<>0)then begin s:=s+a[i];inc(dem);end;
end;
write('trung binh cong cac chu so khac 0 la:',s/dem:4:2);
readln;
end.
đây nha bạn
Câu hỏi trong lớp
Xem thêm
