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
tuyết trinh

a) Viết chương trình nhập vào mảng gồm N số nguyên và số nguyên k. Tìm và đưa ra màn hình:

b) Giá trị lớn nhất của mảng, vị trí lớn nhất đó.

c) Giá trị nhỏ nhất của mảng, vị trí lớn nhất đó.

d) Tính tổng bình phương các giá trị ở vị trị chẵn.

e) Sắp xếp mảng theo thứ tự tăng dần.

f) Đếm xem trong mảng có bao nhiêu giá trị bằng k.

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

uses crt;
var a:array[1..100]of integer;
i,n,k,max,min,t,tam,j,dem:integer;
begin
clrscr;
{----------------------------------cau-a--------------------------------}
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('nhap k='); readln(k);
{----------------------------------cau-b--------------------------------}
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('gia tri lon nhat cua mang la: ',max);
writeln('vi tri cua no trong day la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
{----------------------------------cau-c--------------------------------}
writeln;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('gia tri nho nhat cua mang la: ',min);
writeln('vi tri cua no trong day la: ');
for i:=1 to n do
if min=a[i] then write(i:4);
{----------------------------------cau-d--------------------------------}
writeln;
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+sqr(a[i]);
writeln('tong binh phuong cac phan tu o vi tri chan la: ',t);
{----------------------------------cau-e--------------------------------}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('mang duoc xep theo thu tu tang dan la: ');
for i:=1 to n do
write(a[i]:4);
{----------------------------------cau-f--------------------------------}
writeln;
dem:=0;
for i:=1 to n do
if a[i]=k then inc(dem);
writeln('trong mang co ',dem,' gia tri bang ',k);
readln;
end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Linh Nguyễn
Xem chi tiết
Dragon
Xem chi tiết
Nguyen Kiet
Xem chi tiế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
Nguyễn Minh Lệ
Xem chi tiết
Đông Nguyễn
Xem chi tiết