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.

30 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a[100],i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

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

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

uses crt;

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

i,n,k,dem:integer;

begin

clrscr;

readln(n);

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

readln(k);

dem:=0;

for i:=1 to n do

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

write(dem);

readln;

end.

17 tháng 4 2023

python hay pascal

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i;

int main()

{

cin>>n;

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

cin>>a[i];

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

if (a[i]==0) 

{cout<<i; break; }

return 0;

}

1 tháng 12 2021

Tham khảo

 

B1: Nhập N, dãy số nguyên A, số nguyên k

B2: dem←0; i←1;

B3: Nếu i>N thì chuyển đến B6.

B4: Nếu A[i]>k thì dem←dem+1

B5: i←i+1; Quay lại B3.

B6: In dem ra màn hình và kết thúc.

5 tháng 5 2018

Do ƯCLN ( a , b ) = 15 => a = 15 . m ; b = 15 . n  ( m,n) = 1

=> BCNN ( a, b ) = 15 . m . n = 300

=> m . n = 300 : 15 = 20

Nếu a > b thì m > n do ( m;n ) = 1 =>  m = 20 ; n = 1 hoặc m = 5; n = 4

+Với m = 20 , n = 1 thì a =15 . 20 = 300 ; b = 15 . 1 = 15

+Với m = 5 , n = 4 thì a = 15 . 5 = 75 ; b = 15 . 4 = 60

Vậy các cặp giá trị (m;n) thỏa mãn đề bài là : ( 300 ; 15 ) ; ( 15 ; 300 ) ; ( 75 ; 60 ) ; ( 60 ; 75 )

5 tháng 5 2018

em lên câu hỏi tương tự có đấy

23 tháng 10 2016

minh ghi bị nhầm cho dãy A gồm N số nguyên a1, a2...aN . trong dãy A có bao nhiêu phần tử là số lẻ , tính tống các phần tử lẽ đó.

23 tháng 10 2016

var s,a1,an,n,c:integer;

begin

s:=0;

c:=0

write('nhap a1,an ');

read(n);

for i:=a1 to an do

if i mod 2=0 then

begin

s:=s+i;

c:=c+1;

end;

write ('so so thoa ycdb la : ',c);

write ('tong so thoa ycdb la : ',s);

readln

end.

 

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.