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
thanh phong
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 12 2021 lúc 23:14

#include <bits/stdc++.h>

using namespace std;

long long x,i,n,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

t=t+x;

}

cout<<t;

return 0;

}

Nguyễn Thái Phương Thảo
Xem chi tiết
Minh Đông
Xem chi tiết
Nguyễn Thái Phương Thảo
Xem chi tiết
Võ Thái An Bình
Xem chi tiết
Nguyên Hưng Trần
29 tháng 7 2021 lúc 10:42

Bài 1:

Uses crt;

var i,n,j:integer;

     a,b,c:array[1..100000] of integer;

Begin

clrscr;

readln(n);

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

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

j:=0;

for i:= 1 to n do 

  Begin

  inc(j);

  c[j] := a[i];

  inc(j);

  c[j] := b[i];

  end;

for i:= 1 to j do write(c[i],'  ');

readln;

end. 

Nguyễn Thái Phương Thảo
Xem chi tiết
Tuyết Mai
Xem chi tiết
Nguyễn Lê Phước Thịnh
26 tháng 10 2021 lúc 23:37

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if (x<0) dem++;

}

cout<<dem;

return 0;

}

Uyen
Xem chi tiết
nguyễn an phát
12 tháng 5 2021 lúc 14:30

program nhap_tinhtong;

uses crt;

type kmang=array[1..1000] of integer;

var A:kmang;

     n:integer;

{---Nhap---}

procedure nhap;

var i:integer;

begin

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

       for i:=1 to n do

              begin

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

              end;

end;

{---Tinh-tong---}

function tinh_tong(A:kmang; n:integer):integer;

var t,i:integer;

begin

       t:=0;

       for i:=1 to n do

              t:=t+A[i];

       tinh_tong:=t;

end;

{---CT-chinh---}

BEGIN

       clrscr;

       nhap;

       write('Tong cac phan tu la: ',tinh_tong(A,n));

       readln;

end.

nguyễn an phát
12 tháng 5 2021 lúc 14:31

program nhap_tinhtong;

uses crt;

type kmang=array[1..1000] of integer;

var A:kmang;

     n:integer;

{---Nhap---}

procedure nhap;

var i:integer;

begin

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

       for i:=1 to n do

              begin

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

              end;

end;

{---Tinh-tong---}

function tinh_tong(A:kmang; n:integer):integer;

var t,i:integer;

begin

       t:=0;

       for i:=1 to n do

              t:=t+A[i];

       tinh_tong:=t;

end;

{---CT-chinh---}

BEGIN

       clrscr;

       nhap;

       write('Tong cac phan tu la: ',tinh_tong(A,n));

       readln;

end.

Hoàng Long Đậu
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 2 2022 lúc 0:03

uses crt;

var x,n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do 

begin

readln(x);

if x mod 2=0 then t:=t+x;

end;

writeln(t);

readln;

end.

program ideone;
var i,n,x,res:longint;
begin
readln(n);
res:=0;
for i:=1 to n do 
begin
read(x);
if x mod 2 = 0 then
res:=res+x;
end;
write(res);

end.