Có ai biết giải 2 bài pascal này thì giải dùm mình với nha?
bài 1 : viết ctrình nhập 1 mảng 2 chiều gồm 4 hàng 5 cột các số nguyên. TÌm và đưa ra phần tử có giá trị lớn nhất
bài 2: viết ctrình nhập mảng 2 chiều gồm 3 hàng 7 cột các số nguyên và 1 số nguyên k.Tìm và đưa ra màn hình vị trí của phần tử giá trị k nếu không tìm thấy thì thông báo không có phần tử nào bằng k
Nhân Beast
Trả lời 15 năm trước
[quote]Từ bài viết của [b]beongo02[/b]
Bài 1 nè bẹn ơi :)
Lớp mấy rùi zay?
program mang1;
uses crt;
var a:array[1..10,1..10] of integer;
tg,i,j,m,n:integer;
begin
clrscr;
{ Nhap }
writeln('Nhap ma tran:');
for i:=1 to 4 do
for j:=1 to 5 do
begin
write('a[',i,',',j,']=');readln(tg);
a[i][j]:=tg;
end;
{ In }
writeln('Ma tran vua nhap la:');
for i:=1 to 4 do
begin
for j:=1 to 5 do
write(a[i][j]:4);
writeln;
end;
{ Tim max }
tg:=a[1,1];
for i:=1 to 4 do
for j:=1 to 5 do
if a[i][j]>tg then
begin
tg:=a[i][j];
m:=i;
n:=j;
end;
write('Phan tu lon nhat la: a[',m,',',n,']=',tg);
readln;
end.
Bài sau bạn hoàn toàn có thể làm tương tự, bài này không yêu cầu nhưng mình cũng làm lưu lại vị trí ấy. Không phức tạp đâu cố lên nhé[/quote]
đọc xong hok hiểu j hết thầy mình làm 1 kiểu bạn làm kiểu khác :)