K
Khách
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.
Dưới đây là một vài câu hỏi có thể liên quan tới câu hỏi mà bạn gửi lên. Có thể trong đó có câu trả lời mà bạn cần!
25 tháng 3 2021
1:
uses crt;
var a:array[1..100,1..100]of integer;
i,n,j,m,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
write('Nhap m='); readln(m);
for i:=1 to n do
for j:=1 to m do
begin
write('A[',i,',',j,']='); readln(a[i,j]);
end;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
for j:=1 to m do
begin
if max<a[i,j] then max:=a[i,j];
if min>a[i,j] then min:=a[i,j];
end;
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
readln;
end.
6 tháng 2 2020
Bài 1:
uses crt;
var a:array[1..100,1..100]of integer;
m,n,i,j,k,g,tam:integer;
begin
clrscr;
write('nhap so n='); readln(n);
write('nhap so m='); readln(m);
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']='); readln(a[i,j]);
end;
{----------------------------------------------------------}
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
{----------------------------------------------------------}
writeln('day tang dan cua ma tran la: ');
for i:=1 to n do
for j:=1 to m do
for k:=1 to n do
for g:=1 to m do
if a[i,j]<a[k,g] then begin
tam:=a[k,g];
a[k,g]:=a[i,j];
a[i,j]:=tam;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
{---------------------------------------------------------}
writeln('day giam dan cua ma tran la: ');
for i:=1 to n do
for j:=1 to m do
for k:=1 to n do
for g:=1 to m do
if a[i,j]>a[k,g] then begin
tam:=a[k,g];
a[k,g]:=a[i,j];
a[i,j]:=tam;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
readln;
end.
Bài 2:
uses crt;
var a:array[1..100,1..100]of integer;
i,j,n,m,snn,sln,vtc,vth,x,z,kt,k:integer;
begin
clrscr;
{----------nhap----------}
write('nhap n: ');readln(n);
write('nhap m='); readln(m);
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']='); readln(a[i,j]);
end;
{----------nho nhat hang----------}
for i:=1 to n do
begin
snn:=a[i,1];
for j:=1 to m do
if snn>=a[i,j] then
begin
snn:=a[i,j];
vth:=i;
vtc:=j;
end;
kt:=0;
sln:=a[vth,vtc];
for k:=1 to n do
if sln<a[k,vtc] then kt:=1;
if kt=0 then writeln(k,',',vtc);
end;
readln;
end.
TA
23 tháng 8 2023
m = int(input("Nhập số hàng của ma trận: "))
n = int(input("Nhập số cột của ma trận: "))
A = []
for i in range(m):
# Nhập một dòng gồm n số nguyên cách nhau bởi dấu cách
row = list(map(int, input(f"Nhập dòng {i+1}: ").split()))
A.append(row)
# In ma trận A ra màn hình
for i in range(m):
for j in range(n):
print(A[i][j], end=" ")
print()
31 tháng 3 2022
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,t,nn,x;
int main()
{
freopen("lop11a.inp","r",stdin);
freopen("kq.txt","w",stdout);
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
nn=LLONG_MAX;
for (i=1;i<=n; i++)
if (100<=a[i] && a[i]<=999)
{
nn=min(nn,a[i]);
}
cout<<nn<<endl;
t=0;
while (nn>0)
{
x=nn%10;
t=t+x;
nn=nn/10;
}
cout<<t;
return 0;
}
7 tháng 5 2021
Khi nãy gửi nhầm 2 cái nha
program Baitap1;
uses crt;
var Min ,n, i:integer;
A: array [1..1000] of integer;
begin
clrscr;
write('Nhap N ');readln(n);
for i:=1 to n do begin
write('A[',i,']=');readln(A[i]);
end;
Min:=A[1];
for i:=1 to n do if Min>A[i] then Min:=A[i];
write('So Nho Nhat Trong Mang La ',Min);
readln;
end.
TN
1
25 tháng 3 2022
var a:array [1..100] of integer;
i,n,x : byte;
min:integer;
begin
write('Dãy có số phần tử là : '); readln(N);
for i:=1 to n do begin
write('A[',i,'] = ');
readln(A[i]);
end;
Min : = A[1];
for i:=2 to n do if A[i] < min then begin
min:= A[i];
x:=i;
end;
write('Phần tử bé nhất trong dãy là : A[',x,']');
readln
end.
#include <bits/stdc++.h>
using namespace std;
long long a[300][300];
int main()
{
long long m, n;
cin>>m>>n;
long long ans=0;
for(int i=1; i<=m; i++)
{
for(int j=1; j<=n; j++)
{
cin>>a[i][j];
}
}
for(int i=1; i<=m; i++)
{
for(int j=1; j<=n; j++)
{
ans=min(ans, a[i][j]);
}
}
cout<<ans;
}