Lập trình đơn giản

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

Cho mảng A có m hàng, n cột các số nguyên.

Viết chương trình:

- Sắp xếp các phần tử của mảng theo thứ tự tăng dần của mỗi hàng.

- Tìm số lớn nhất và số lớn thứ nhì của mảng.

Help nha mn

Tony Nguyễn
26 tháng 4 2017 lúc 21:16

- Bôi đen các phần tử của mảng chọn biểu tượng Lệnh A đến Z trong Excel sắp xếp từ A đến Z hoặc từ số nhỏ nhất đến số lớn nhất

-Chọn ô tiêu đè có chứa dữ liệu

- Chọn Data - Filter - Auto Filter, chọn mũi tên cạnh ô tiêu đề chứa dữ liệu cần lọc

Giao Huỳnh
28 tháng 5 2017 lúc 15:05

program mang_2_chieu;

uses crt;

var m,n,i,j,t,k:word;

max,max2:longint;

a:array[1..100,1..100] of longint;

begin

clrscr;

write('nhap m:');readln(m);

write('nhap n:');readln(n);

writeln('nhap mang A:');

for i:=1 to m do

for j:=1 to n do

begin

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

end;

writeln('mang da nhap :');

for i:=1 to m do

begin

for j:=1 to n do write(a[i,j]:3);

writeln;

end;

for i:=1 to m do

begin

for j:=1 to n-1 do

for t:=j+1 to n do

if(a[i,j]>a[i,t]) then

begin

k:=a[i,j];

a[i,j]:=a[i,t];

a[i,t]:=k;

end;

end;

writeln('mang da sap xep cac phan tu theo thu tu tang dan cua moi hang la:');

for i:=1 to m do

begin

for j:=1 to n do write(a[i,j]:3);

writeln;

end;

max:=a[1,1]; max2:=a[1,1];

for i:=1 to m do

for j:=1 to n do

if a[i,j]>max then max:=a[i,j];

for i:=1 to m do

for j:=1 to n do

if (a[i,j]<max) and (a[i,j]>max2) then max2:=a[i,j];

writeln('so lon nhat la:',max);

write('so lon nhi la:',max2);

readln;

end.banh


Các câu hỏi tương tự
Nguyễn Thị Tuyết
Xem chi tiết
Thư Đặng
Xem chi tiết
Nguyễn Thị Ngọc Hà
Xem chi tiết
duyy
Xem chi tiết
Nguyễn Linh
Xem chi tiết
hoho209
Xem chi tiết
lục thị thu hằng
Xem chi tiết
Ngọc Khánh
Xem chi tiết
LMHT_Tốc_chiến
Xem chi tiết