Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var n,i,j,max,min:integer;
a:array[1..100,1..100]of integer;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']='); readln(a[i,j]);
end;
{--------------------xuat----------------------}
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
{--------------------cau-a--------------------}
max:=a[1,1];
min:=a[1,1];
for i:=1 to n do
for j:=1 to n do
begin
if max<a[i,j] then max:=a[i,j];
if min>a[i,j] then min:=a[i,j];
end;
writeln('so lon nhat la: ',max);
writeln('so nho nhat la: ',min);
{-------------------cau-b---------------------}
writeln('cac phan tu am trong ma tran la: ');
for i:=1 to n do
for j:=1 to n do
if a[i,j]<0 then write(a[i,j]:4);
writeln;
writeln('cac phan tu duong trong ma tran la: ');
for i:=1 to n do
for j:=1 to n do
if a[i,j]>0 then write(a[i,j]:4);
writeln;
writeln('cac phan tu bang 0 trong ma tran la: ');
for i:=1 to n do
for j:=1 to n do
if a[i,j]=0 then write(a[i,j]:4);
readln;
end.
C2
Câu lênh dc thuc hiên nhu sau
B1 kiêm tra điêu kien
B2 neu điêu kien sai, cau lênh se bi bo qua va viêc thuc hiên lênh lap se két thuc. Neu điêu kien dung, thuc hiên cau lênh va quay lai b1
Cu phap
For( biên đêm) :=(gia tri dau) to(gia trí cuoi) do(cau lênh) ;
C2 dai lam mai len lop chép sau
uses crt;
var a:array[1..100,1..100]of integer;
i,n,m,j:integer;
begin
clrscr;
readln(n,m);
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
readln;
end.