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.

9 tháng 3

A = [[1, 3], [4, 7], [10, 2]]

# Khởi tạo biến max_value và vị trí của nó
max_value = A[0][0]
max_row = 0
max_col = 0

# Duyệt qua từng hàng trong dãy A
for i in range(len(A)):
  # Duyệt qua từng cột trong dãy A[i]
  for j in range(len(A[i])):
    # So sánh phần tử hiện tại với max_value
    if A[i][j] > max_value:
      # Cập nhật max_value và vị trí của nó
      max_value = A[i][j]
      max_row = i
      max_col = j

# In phần tử lớn nhất
print(f"Phần tử lớn nhất trong dãy A là: {A[max_row][max_col]}")

19 tháng 3 2022

chương trình C++ ạ

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.

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.

const fi='bt.inp';

fo='bt.out';

var f1,f2:text;

a:array[1..100]of integer;

i,n,ln:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do read(f1,a[i]);

ln:=a[1];

for i:=1 to n do 

if ln<a[i] then ln:=a[i];

write(f2,ln);

close(f1);

close(f2);

end.

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()

#include <bits/stdc++.h>

using namespace std;

long long a[40],i,n,ln;

int main()

{

cin>>n;

for (i=1; i<=n; i++)

{

cin>>a[i];

}

ln=a[1];

for (i=1; i<=n; i++) ln=max(ln,a[i]);

for (i=n; i>=1; i--)

if (ln==a[i]) 

{

cout<<i;

break;

}

return 0;

}

uses crt;

var a:array[1..100]of integer;

i,n,t,max:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

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

end;

max:=a[1];

for i:=1 to n do 

  if max<a[i] then max:=a[i];

t:=0;

for i:=1 to n do 

  if max=a[i] then t:=t+a[i];

writeln('Tong cac phan tu co gia tri lon nhat la: ',t);

readln;

end.

31 tháng 1 2021

Thầy em cho em viết đề như v em cũng k biết nửa 🥺

13 tháng 10 2019

Program hotrotinhoc;

const fi='lientiep.inp';

fo='lientiep.out';

var f: text;

a,b: array[1..32000] of integer;

k,i,n,max,vtd,vtc: integer;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,n,k);

for i:=1 to n do read(f,a[i]);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

max:=0; i:=1;

while i<=n do

begin

j:=i;

t:=a[i];

while (a[j]<a[j+1]) and (j<=n) do

begin

inc(j);

t:=t+a[j];

end;

if t>max then

begin

max:=t;

vtd:=i;

vtc:=j;

end;

i:=j+1;

end;

for i:=vtc downto vtd do

begin

inc(d1);

b[d1]:=a[i];

end;

for i:= k dowto 1 do

write(f,b[i],' ');

close(f);

end;

begin

ip;

out;

end.

D
datcoder
CTVVIP
6 tháng 2

#include <bits/stdc++.h>

using namespace std;

int main(){

    int n;

    cin >> n;

    int a[n][n];

    for (int i=0; i<n;i++)

        for (int j=0;j<n;j++)

              a[i][j]=0;

    for (int i=0; i<n;i++){

        for (int j=0;j<n;j++)

              cout << a[i][j];

        cout <<endl;

     }

     return 0;

}