Những câu hỏi liên quan
Nguyễn Phương Oanh
Xem chi tiết
Leoumax
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 2 2023 lúc 20:54

Bai 2:

uses crt;

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

i,n,t,nn:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

nn:=a[1];

for i:=1 to n do

if nn>a[i] then nn:=a[i];

write(nn);

readln;

end.

Bình luận (0)
Nguyễn Xuân Khánh
Xem chi tiết
Nguyễn Xuân Khánh
10 tháng 12 2021 lúc 11:14

giúp em với ạ

Bình luận (0)
Nguyễn Lê Phước Thịnh
10 tháng 12 2021 lúc 23:14

#include <bits/stdc++.h>

using namespace std;

long long a[10000],n,i,ln,vt;

int main()

{

cin>>n;

ln=LLONG_MIN;

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

{

cin>>a[i];

ln=max(ln,a[i]);

}

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

if (ln==a[i]) vt=i;

swap(a[1],a[vt]);

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

cout<<a[i]<<" ";

return 0;

}

Bình luận (0)
shushu333
Xem chi tiết
Nguyên Hưng Trần
25 tháng 10 2021 lúc 21:19

program Tin_hoc;

Uses crt;

var i,n,k,dem:integer;

     a;array[1..10000] of integer;

Begin

clrscr;

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

writeln('Nhap ',n,' pha tu cua day A:');

for i:= 1 to n do readln(a[i]);

dem:=0;

write('Nhap k: ');readln(k);

for i:= 1 to n do if a[i] = k then inc(dem);

writeln('Day A co ',dem,' ki tu ',k,);

readln;

end.

Bình luận (0)
Nguyên Nguyễn
Xem chi tiết
Khang nguyễn
Xem chi tiết
Noelle
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 3 2021 lúc 20:11

const fi='divk.inp'

fo='divk.out'

var f1,f2:text;

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

i,n,k,dem,j,x,t:integer;

begin

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

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

readln(f1,n,k);

for i:=1 to n do 

  read(f1,a[i]);

dem:=0;

for i:=1 to n do 

  for j:=1 to n do 

begin

if i<j then 

begin

t:=0;

for x:=i to j do 

  t:=t+a[x];

if t=k then inc(dem);

end;

for i:=1 to n do 

  if k=a[i] then inc(dem);

writeln(f2,dem);

close(f1);

close(f2);

end.

Bình luận (0)
trung kien ta
15 tháng 10 2022 lúc 14:59

#include <bits/stdc++.h>
using namespace std;
#define nhungcute ios_base::sync_with_stdio; cin.tie(0); cout.tie(0);
const int N=1500;
long long n,k,a[N],i,j,c[N][101];
int main(){
nhungcute
    cin>>n>>k;
    for(i=1;i<=n;i++)
        cin>>a[i];
    for(i=1;i<=n;i++){
        a[i]=a[i]%k;
    }
    for(i=1;i<k;i++)
    c[1][i] =-1e9;
    c[1][a[0]]=0;
    c[1][a[1]]=1;
    for(i=2;i<=n;i++){
        for(j=0;j<k;j++){
        c[i][j]=max(c[i-1][j],c[i-1][(j-a[i]+k)%k]+1);
        }
    }
    cout<<c[n][0];
    return 0;
}

 

Bình luận (0)
Ngọc Anh Phạm
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 10 2021 lúc 23:29

#include <bits/stdc++.h>

using namespace std;

long long k,x,i,n,vt;

int main()

{

cin>>n;

cin>>k;

vt=0;

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

{

cin>>x;

if (x==k) vt=i;

}

if (vt==0) cout<<"Khong co "<<k<<" trong day";

else cout<<vt;

return 0;

}

Bình luận (0)
thiên thanh
Xem chi tiết
fyujg
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 2 2021 lúc 13:08

uses crt;

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

i,n,dem,k:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

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

dem:=0;

for i:=1 to n do 

  if a[i]=k then inc(dem);

writeln('Trong day co ',dem,' phan tu co gia tri bang ',k);

readln;

end.

Bình luận (1)