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

Bình An

Đã trả lời bởi chuyên gia

· 00:00 09/02/2024

Đã trả lời bởi chuyên gia

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

Trả Lời

Lưu câu hỏi Lưu

Hỏi chi tiết

Quảng cáo

2 câu trả lời 154

sharking

1 tháng trước

làm bài

0 bình luận

Đăng nhập để hỏi chi tiết

Quang Minh

2 năm trước

Lời giải:

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.

...Xem thêm

0 bình luận

Đăng nhập để hỏi chi tiết

Quảng cáo

Bạn hỏi - Chuyên gia trả lời

Bạn cần hỏi gì?

2 câu trả lời 154

Câu hỏi hot cùng chủ đề

Bài viết mới nhất Lớp 12