Những câu hỏi liên quan
Benny
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 3 2023 lúc 14:55

6:

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,A[100],i,dem=0;

cin>>n;

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

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

if (A[i]%2!=0) dem++;

cout<<dem;

return 0;

}

5:

#include <bits/stdc++.h>

using namespace std;

int main()

{

long long n,nn=1e6,A[1000];

cin>>n;

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

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

nn=min(nn,A[i]);

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

if (nn==A[i]) cout<<i<<" ";

return 0;

}

Bình luận (0)
NGUYỄN VIẾT LUẬN
Xem chi tiết
Nguyễn Kim Trí
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 1 2022 lúc 21:17

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i;

//chuongtrinhcon

bool ktnt(long long x)

{

if (x<=1) return(false);

for (int i=2; i*i<=x; i++)

if (x%i==0) return(false);

return(true);

}

//chuongtrinhchinh

int main()

{

cin>>n;

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

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

return 0;

}

Bình luận (0)
-X_minh hiếu-
Xem chi tiết
Nguyễn Lê Phước Thịnh
15 tháng 1 2022 lúc 15:09

#include <bits/stdc++.h>

using namespace std;

double a[1000];

int i,n;

int main()

{

cin>>n;

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

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

if (a[i]>0)

{

cout<<i<<" ";

return 0;

}

cout<<"Khong co so am trong day";

return 0;

}

Bình luận (0)
Đỗ Tuệ Lâm
15 tháng 1 2022 lúc 15:13

 

Bình luận (0)
Huy Hoàng Phạm
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 12 2021 lúc 8:06

#include <bits/stdc++.h>

using namespace std;

long long n,i,a[10000];

int main()

{

cin>>n;

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

cin>>a[i];

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

return 0;

}

Bình luận (0)
Anh Lê duy
Xem chi tiết
phạm hải nam
Xem chi tiết
Nguyễn Lê Phước Thịnh
14 tháng 3 2022 lúc 9:46

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t;

int main()

{

cin>>n;

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

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

cout<<endl;

t=0;

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

cout<<t;

return 0;

}

Bình luận (0)
Layla
Xem chi tiết

Bài 2:

Uses crt;

Var a:array[1..200]of integer;

i,n,t:integer;

Begin

Clrscr;

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

For i:=1 to n do 

  Begin

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

End;

t:=0;

for i:=1 to n do 

 if a[i] mod 2=0 then t:=t+a[i];

writeln(t);

readln;

end.

Bình luận (0)
Phía sau một cô gái
8 tháng 5 2023 lúc 20:33

Bài 1. Nhập mảng A gồm n phần tử, rồi in mảng đó ra màn hình.

program BaiTap;

var

      A: array[1..150] of integer;

      N, i: integer;

begin

      write('Nhap so phan tu cua mang A (N <= 150): ');

      readln(N);

      for i := 1 to N do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(A[i]);

      end;

      writeln('Mang A vua nhap la:');

      for i := 1 to N do

            write(A[i], ' ');

      readln;

end.

 

Bài 2. Nhập mảng A gồm n phần tư, rồi in tổng các phần tử mảng đó ra màn hình.

 

program BaiTap;

var

      A: array[1..150] of integer;

      N, i, sum: integer;

begin

      write('Nhap so phan tu cua mang A (N <= 150): ');

      readln(N);

      for i := 1 to N do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(A[i]);

      end;

      sum := 0;

      for i := 1 to N do

            sum := sum + A[i];

      writeln('Tong cac phan tu trong mang la: ', sum);

      readln;

end.

 

Bài 3. Nhập mảng A gồm n phần tử, rồi in tổng các phần tử dầu và phần tủ cuối của mảng đó ra màn hình.

 

program BaiTap;

var

      A: array[1..150] of integer;

      N, i, sum: integer;

begin

      write('Nhap so phan tu cua mang A (N <= 150): ');

      readln(N);

      for i := 1 to N do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(A[i]);

      end;

      sum := A[1] + A[N];

      writeln('Tong cua phan tu dau va cuoi mang la: ', sum);

      readln;

end.

Bình luận (0)
Kiều Vũ Linh
9 tháng 5 2023 lúc 9:43

Bài 1

Sửa đề: Thêm điều kiện của các phần tử trong mảng là số

Var a:array[1..1000] of real;

i,n:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

End;

Write('Cac phan tu vua nhap la ');

For i:=1 to n do

Write(a[i]:10:2);

Readln

End.

Bình luận (0)
Trần Ngọc Phong
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 1 2022 lúc 7:44

Bạn tách ra đi bạn

Bình luận (0)