LH
1
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
ML
5 tháng 3 2020
Program hotrotinhoc;
var d,n,i: byte;
a: array[1..100] of byte;
begin
write('N='); readln(n);
d:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if a[i] mod 2=0 then inc(d);
end;
write('Mang vua nhap la :');
for i:=1 to n do write(a[i],' ');
writeln;
write('So phan tu chan la : ',d);
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.
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.
ML
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.
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;
}
#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;
}