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.

Bài 1: 

#include <bits/stdc++.h>

using namespace std;

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

int main()

{

cin>>n;

t=0;

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

{

cin>>a[i];

t=t+a[i];

}

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

cout<<endl;

cout<<t;

return 0;

}

Bài 2: 

#include <bits/stdc++.h>

using namespace std;

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

int main()

{

cin>>n;

t=0;

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

{

cin>>a[i];

t=t+a[i];

}

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

cout<<endl;

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

return 0;

}

#include <bits/stdc++.h>

using namespace std;

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

int main()

{

cin>>n;

t=0;

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

{

cin>>a[i];

t=t+a[i];

}

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

cout<<endl;

cout<<t;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long a[50],n,i,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;

for (i=n; i>=1; 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;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

double x,t;

int n,i;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

t=t+x;

}

cout<<t;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

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

int main()

{

cin>>n;

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

{

cin>>a[i];

if (a[i]<0 || a[i]>10) cin>>a[i];

}

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

cout<<endl;

t=0;

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

cout<<t;

return 0;

}

2:

uses crt;

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

i,n,dem,kt,j:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

b[1]:=a[1];

dem:=1;

for i:=1 to n do 

  begin

kt:=0;

for j:=1 to dem do 

 if b[j]=a[i] then kt:=1;

if kt=0 then 

begin

inc(dem);

b[dem]:=a[i];

end;

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

21 tháng 12 2020

uses crt;

var n,i,k,dem:integer;

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

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

for i:=1 to n do 

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

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

write('Nhap so k='); readln(k);

kt:=0;

for i:=1 to n do 

  if a[i]=k then kt:=i;

if kt=0 then writeln('Khong co phan tu nao trong day bang ',k)

else writeln('Trong day co phan tu bang ',k);

readln;

end.

31 tháng 10 2021

Câu 3: 

const pi=3.14

var x,y:real;

Chọn D nhé bạn

20 tháng 2 2021

Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau dùng để làm gì? Var a:array[0..50] of real; i, k:byte;

Begin

k:= 0;

for i:= 1 to 50 do if a[i] > a[k] then k:= i;

writeln(k);

End.

A. Đếm số phần tử trong mảng a là số chẵn.

B. Đếm số phần tử trong mảng a là số lẻ.

C. Tính tổng các phần tử trong mảng a.

D. Đếm các phần tử có trong mảng a.

20 tháng 12 2020

Sửa đề: Kiểm tra N là số chẵn hay số lẻ

uses crt;

var n:longint;

begin

clrscr;

repeat

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

until n>0;

if n mod 2=0 then writeln(n,' la so chan')

else writeln(n,' la so le');

readln;

end.