Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Linh Chi
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 3 2021 lúc 19:40

uses crt;

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

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

dem1:=0;

for i:=1 to n do 

  begin

if a[i] mod 2=0 then inc(dem);

if a[i] mod k=0 then inc(dem1);

end;

writeln('So phan tu chan la: ',dem);

writeln('So phan tu chia het cho ',k,' la: ',dem1);

readln;

end.

ngomanhcuong
Xem chi tiết
Nguyễn Lê Phước Thịnh
15 tháng 3 2022 lúc 20:25

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t,dem;

int main()

{

cin>>n;

dem=0;

t=0;

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

{

cin>>x;

if (x%2==0 && x>10) t+=x;

if (x%2!=0 || x<100) dem++;

}

cout<<t<<" "<<dem;

return 0;

}

Ngọc Hân Lương Thị
Xem chi tiết
Kiều Vũ Linh
29 tháng 4 2023 lúc 11:11

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

i,n,d:integer;

Begin

For i:=1 to 20 do

Begin

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

if a[i] = 3 then d:=d+1;

End;

Write('Co ',d,' chu so 3');

Readln

End.

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;

}

Khang Đinh Hoàng
Xem chi tiết
Luân Đào
21 tháng 5 2021 lúc 15:42

var n,i: integer;

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

begin

write('Nhap so 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] mod 2 = 0 then writeln(a[i]);

end.

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
7 tháng 12 2019 lúc 12:21

Program bt_3;

Uses crt;

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

Dem, Tong, n, i: integer;

Begin

Clrscr;

 Writeln(‘nhap so phan tu, n=’);

 Readln (n);

 for i := 1 to n do

 begin

 writeln(‘nhap gia trij phan tu thu ’,i,’ =’);

 readln(a[i]);

 end;

 Dem:=0;

 Tong:=0;

 For i:=1 to n do

 If (a[i] mod 2 = 0) and (a[i] mod 3 = 0) then

 begin

 Dem:= Dem+1;

 Tong:= Tong+a[i];

 end;

 writeln(‘Dem la:’,Dem);

 Writeln(‘Tong la:’,Tong);

 Readln

End.

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
5 tháng 3 2017 lúc 3:09

Program bt_3;

Uses crt;

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

Dem, Tong, n, i: integer;

Begin

Clrscr;

 Writeln(‘nhap so phan tu, n=’);

 Readln (n);

 for i := 1 to n do

 begin

 writeln(‘nhap gia trij phan tu thu ’,i,’ =’);

 readln(a[i]);

 end;

 Dem:=0;

 Tong:=0;

 For i:=1 to n do

 If (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then

 begin

 Dem:= Dem+1;

 Tong:= Tong+a[i];

 end;

 writeln(‘Dem la:’,Dem);

 Writeln(‘Tong la:’,Tong);

 Readln

End.

nguyễn hoàng long
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 1 2022 lúc 22:00

#include <bits/stdc++.h>

using namespace std;

long long a[100],n,i,t,t1,dem,dem1;

//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++) cout<<a[i]<<" ";

cout<<endl;

t=0;

for (i=1; i<=n; i++) if (a[i]%2==0) t=t+a[i];

cout<<t<<endl;

dem=0;

for (i=1; i<=n; i++) if (a[i]%3==0) dem++;

cout<<dem<<" ";

t1=0;

dem1=0;

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

if (a[i]%2!=0)

{

t1+=a[i];

dem1++;

}

cout<<fixed<<setprecision(2)<<(t1*1.0)/(dem1*1.0)<<endl;

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

if (ktnt(a[i])==true) cout<<a[i]<<" ";

return 0;

}

Trần Cương
Xem chi tiết
Ngô Thành Chung
22 tháng 3 2022 lúc 22:07

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

      i,n,S,d:byte;

 begin

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

  for i:=1 to n do begin

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

                           readln(A[i]);

                          end;

d:=0; S:=0;

for i:=1 to n do if A[i] mod 2 = 0 then begin

                                                          d:=d+1;

                                                           S:=S+A[i];

                                                           end;

write('Dãy có ',d,' phần tử là số chẵn và tổng của chúng là : S = ',S);

readln

end.