Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Oanh Nguyễn
Viết chương trình nhập từ bàn phím số nguyên dương n, n nhỏ hơn bằng 200,và dãy số nguyên A gồm n phần tử. In ra màn hình số các số dương chẵn, tính TBC các phân tử có giá trị trong phạm vi từ trừ 1000 đến 1000
Nguyễn Lê Phước Thịnh
23 tháng 12 2020 lúc 21:00

uses crt;

var a:array[1..200]of integer;

i,n,tbc,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

       write('A[',i,']='); readln(a[i]);

  end;

writeln('Cac so duong chan la: ');

for i:=1 to n do 

  if (a[i] mod 2=0) and (a[i]>0) then write(a[i]:4);

writeln;

tbc:=0;

dem:=0;

for i:=1 to n do 

  if (-1000<=a[i]) and (a[i]<=1000) then

begin

tbc:=tbc+a[i];

dem:=dem+1;

end;

writeln('Trung binh cong cac phan tu co gia tri trong pham vi tu -1000 den 1000 la: ',tbc/dem:4:2);

readln;

end.


Các câu hỏi tương tự
uyen hihi
Xem chi tiết
nguyễn hoàng long
Xem chi tiết
nông thị ngân
Xem chi tiết
Nguyễn tiên
Xem chi tiết
Leoumax
Xem chi tiết
Nguyễn Thị Bích Huyền
Xem chi tiết
10. Nguyễn Thu Hải. 11H
Xem chi tiết
Minh Hoạt
Xem chi tiết
dffhb
Xem chi tiết