Làm quen với tin học và máy tính điện tử

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyen Kiet

Bài tập: Viết chương trình nhập và xuất:

a) Mảng số nguyên gồm 20 phần tử. Tính: − In ra màn hình các phần tử chia hết cho 3. − Tính TB cộng các phần tử nguyên dương.

b) Mảng số nguyên có ít nhất 30 phần tử. − Tính TB cộng các phần tử chia hết cho 5.

c) Mảng số nguyên có tối đa (nhiều nhất) 200 phần tử. − In ra màn hình phần tử lớn nhất và nhỏ nhất.

Nguyễn Lê Phước Thịnh
20 tháng 5 2020 lúc 20:03

a)

uses crt;

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

i,dem,t:integer;

begin

clrscr;

for i:=1 to 20 do

begin

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

end;

writeln('Cac phan tu chia het cho 3:');

for i:=1 to 20 do

if a[i] mod 3=0 then write(a[i]:4);

writeln;

dem:=0;

t:=0;

for i:=1 to 20 do

if a[i]>0 then

begin

dem:=dem+1;

t:=t+a[i];

end;

writeln('Trung binh cong cac phan tu nguyen duong la: ',t/dem:4:2);

readln;

end.

b)

uses crt;

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

i,dem,t:integer;

begin

clrscr;

for i:=1 to 30 do

begin

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

end;

dem:=0;

t:=0;

for i:=1 to 30 do

if a[i] mod 5=0 then

begin

dem:=dem+1;

t:=t+a[i];

end;

writeln('Trung binh cong cac phan tu chia het cho 5 la: ',t/dem:4:2);

readln;

end.

c)

uses crt;

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

i,n,max,min:integer;

begin

clrscr;

repeat

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

until (0<n) and (n<201);

for i:=1 to n do

begin

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

end;

max:=a[1];

min:=a[1];

for i:=1 to n do

begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('Phan tu lon nhat: ',max);

writeln('Phan tu nho nhat la: ',min);

readln;

end.


Các câu hỏi tương tự
Hoàng Tuấn Khang
Xem chi tiết
Dragon
Xem chi tiết
Nhung
Xem chi tiết
Đỗ Đức Lâm
Xem chi tiết
VŨ THỊ HIỀN
Xem chi tiết
Đông Nguyễn
Xem chi tiết
hoa Nguyễn
Xem chi tiết
Đinh Ngọc Lan
Xem chi tiết
Hải Hoàng
Xem chi tiết