Nhập dãy số in ra màn hình trung bình cộng các số lẻ và tổng dãy vừa nhập 17/07/2021 Bởi Kaylee Nhập dãy số in ra màn hình trung bình cộng các số lẻ và tổng dãy vừa nhập
progam Day; use crt; var A:array [1..500] of integer; n,i,T,TB,d: integer; Begin clrscr; write(‘Nhap so phan tu: ‘); readln(n); for i:=1 to n do begin write(‘A[‘,i,’]=’); readln(A[i]); if A[i] mo2<>0 then begin TB:=TB+A[i]; d:=d+1; end; T:=T+A[i]; end; writeln(‘Trung binh cong cac so le cua day = ‘,TB/d:2:2); write(‘Tong cua day so = ‘,T); readln End. Bình luận
Làm ơn cho 1st
AQ
progam Day;
use crt;
var A:array [1..500] of integer;
n,i,T,TB,d: integer;
Begin
clrscr;
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
if A[i] mo2<>0 then
begin
TB:=TB+A[i];
d:=d+1;
end;
T:=T+A[i];
end;
writeln(‘Trung binh cong cac so le cua day = ‘,TB/d:2:2);
write(‘Tong cua day so = ‘,T);
readln
End.