Những câu hỏi liên quan
My Nguyễn
Xem chi tiết
My Nguyễn
8 tháng 3 2022 lúc 10:02

Ai giúp mình vs !!

Nguyễn Lê Phước Thịnh
8 tháng 3 2022 lúc 23:04

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,dem1,dem2;

int main()

{

cin>>n;

dem1=0;

dem2=0;

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

{

cin>>x;

if (x%2==0) dem1++;

else dem2++;

}

cout<<"So so chan la: "<<dem1<<endl;

cout<<"So so le la: "<<dem2;

return 0;

}

Quỳnh
Xem chi tiết
Minh Lệ
29 tháng 4 2021 lúc 14:33

Program HOC24;

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

i,n,d: integer;

begin

write('Nhap N: ');

for i:=1 to n do

begin

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

end;

write('Day vua nhap la: '); 

for i:=1 to n do write(a[i],' '); writeln;

d:=0;

for i:=1 to n do if a[i]>0 then d:=d+1;

write('Co ',d,' so duong');

readln

end.

Phạm Hải Đăng
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 1 2021 lúc 13:13

uses crt;

var a:integer;

begin

clrscr;

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

if a<0 then writeln(a,' la so am')

else if a>0 then writeln(a,' la so duong')

else writeln(a,' khong la so am cung khong la so duong');

readln;

end.

huynh phuong
28 tháng 2 2021 lúc 22:44

var A: integer;

begin

write('Nhap vao mot so A='); readln(A);

if A>0 then write('So A la so nguyen duong');

if A<0 then write('So A la so nguyen am');

If A=0 then write('So A khong la so nguyen am va khong la so nguyen duong');

readln;

end.

 

Linh Da
Xem chi tiết
Nguyen Hung
27 tháng 4 2021 lúc 22:03

Program Tin_hoc;

Uses crt; 

Var i,n,dem:integer;

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

Begin

clrscr;

Write('Nhap 1 so nguyen duong n: ');readln(n);

dem:=0;

Writeln('Nhap ',n,' phan tu:');

For i:= 1 to n do 

Begin

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

readln(a[i]);

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

End;

Writeln('Day vua nhap la:');

For i:= 1 to n do write(a[i],'  ');writeln;

Writeln('Day so vua nhap co ',dem,' so chan');

readln;

End.

Nguyễn Lê Phước Thịnh
27 tháng 4 2021 lúc 22:18

uses crt;

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

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

 write(a[i]:4);

writeln;

dem:=0;

for i:=1 to n do 

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

writeln('So so chan la: ',dem);

readln;

end.

Ái Cầm Trần
Xem chi tiết
lam nguyen
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 12 2021 lúc 22:14

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n<0) cout<<"la so am";

else cout<<"la so duong";

return 0;

}

Nguyễn Hồ Anh Thư
Xem chi tiết
Nguyễn Hồ Anh Thư
20 tháng 4 2022 lúc 20:17

SOS:)

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.

Trần Đức Huy
Xem chi tiết
Võ Quốc Bảo
14 tháng 3 2023 lúc 20:34

#include <bits/stdc++.h>
using namespace std;
int main ()
{
    int a[32];
    int n,i,s;
    cout<<"nhap so phan tu cua mang ";
    cin>>n;
    cout<<"nhap cac phan tu cua mang ";
    for (i=1; i<=n; i++)
    {
        s=0;
        cin>>a[i];

    }
    for(i=1; i<=a[i]; i++) s=s+i;

    cout<<s;
    return 0;
}

 

 

Minh Lệ
14 tháng 3 2023 lúc 21:23

Program HOC24;

var i,n: integer;

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

t: longint;

begin

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

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(i);

end;

t:=0;

for i:=1 to n do t:=t+a[i];

write('Tong la: ',t);

readln

end.

Lê Gia Anh
19 tháng 3 2023 lúc 20:26

ngu thế mà cũng ko lm được dcd