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.

2: 

uses crt;

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

n,i:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

for i:=1 to n do 

  if a[i]<0 then write(i:4);

readln;

end.

17 tháng 3 2021

câu 3 nữa bạn, mình ko hiểu đc câu đó

 

uses crt;

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

i,n,k,dem: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);

for i:=1 to n do 

  if a[i]=k then 

begin

writeln(i);

break;

end;

dem:=0;

for i:=1 to n do 

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

if dem>0 then writeln('Co ',dem,' phan tu bang ',k)

else writeln('Khong co phan tu nao bang ',k);

readln;

end.

15 tháng 11 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i,ln,x;

int main()

{

cin>>n>>x;

ln=x;

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

{

cin>>x;

ln=max(ln,x);

}

cout<<ln;

return 0;

}

16 tháng 11 2021

$#include <bits/stdc++.h>

using namespace std;

long long n,i,ln,x;

int main()

{

cin>>n>>x;

ln=x;

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

{

cin>>x;

ln=max(ln,x);

}

cout<<ln;

return 0;

}$

30 tháng 10 2021

uses crt;

var a:array[1..50]of int64;

i,n,t,max,min:int64;

begin

clrscr;

readln(n);

for i:=1 to n do 

  readln(a[i]);

max:=a[1];

min:=a[1];

t:=0;

for i:=1 to n do 

begin

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

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

t:=t+a[i];

end;

writeln('Tong la: ',t);

writeln('So lon nhat la: ',max);

write('Vi tri la: ');

for i:=1 to n do

if a[i]=max then write(i:4);

writeln;

writeln('So nho nhat la: ',min);

write('Vi tri la: ');

for i:=1 to n do 

if a[i]=min then write(i:4);

readln;

end.

24 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a[6],i,t,t1;

int main()

{

t=0;

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

{

cin>>a[i];

if (a[i]%2==0) t=t+a[i];

}

t1=0;

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

if ((a[i]%2!=0) and (i%2==0)) t1=t1+a[i];

cout<<t<<endl;

cout<<t1;

return 0;

}

29 tháng 4 2021

uses crt;

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

max,n,i:integer;

begin

writeln('nhap do dai cua day');readln(n);

for i:=1 to n do begin writeln('A[',i,']=;);readln(a[i]); end;

max:=a[1];

for i:=2 to n do if a[i] > max then begin

max:=a[i]; writeln('vi tri cua max trong day la',i);end;

 readln

end.

thật ra thì cũng không cần biến max nhưng mình làm vậy cho dễ hiểu hơn nhé!

*Thuật toán:

-Bước 1: Nhập n và nhập dãy số

-Bước 2: max←a[1]; i←1;

-Bước 3: i←i+1;

-Bước 4: Nếu max<a[i] thì max←a[i];

-Bước 5: Nếu i<=n thì quay lại bước 3

-Bước 6: Cho for chạy từ 1 đến n

Nếu a[i]=max thì xuất i

-Bước 7: Kết thúc

#include <bits/stdc++.h>

using namespace std;

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

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]) cout<<i<<" ";

return 0;

}

10 tháng 12 2021

Chị có thể trình bày ra các bước liệt kê đc k chị. 

Chẳng hạn như 

B1: ...

B2: ...

B3: ...

10 tháng 12 2021

giúp em với ạ

10 tháng 12 2021

#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;

}