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: 

uses crt;

var a:array[1..1000000]of longint;

i,n,x:longint;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

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

for i:=1 to n do 

  if a[i]<>x then write(a[i]:4);

readln;

end.

18 tháng 4 2021

Mình cảm ơn bạn nhiều lắm

 

10 tháng 12 2021

huhu giúp với ạ cần gấp lắm

10 tháng 12 2021

1:

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

t=t+x;

}

cout<<t;

return 0;

}

Bài 1:

uses crt;
var a:array[1..50]of integer;
n,t,i:integer;
begin
clrscr;
write('n='); readln(n);
if (n<=0) or (n>50) then writeln('vui long nhap lai')
else begin
{---------------------------cau-a-----------------------------}
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{---------------------------cau-b-----------------------------}
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln('tong cac so chan trong day la: ',t);
end;
readln;
end.

Bài 2:

uses crt;
var a:array[1..50]of integer;
n,i,x:integer;
begin
clrscr;
write('n='); readln(n);
if (n<=0) or (n>50) then writeln('vui long nhap lai')
else begin
{---------------------------cau-a-----------------------------}
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{---------------------------cau-b-----------------------------}
write('nhap x='); readln(x);
writeln('cac phan tu co gia tri bang ',x,' trong day la: ');
for i:=1 to n do
if a[i]=x then write(a[i]:4);
end;
readln;
end.

uses crt;

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

i,n,dem,kt,t: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 3=0 then inc(dem);

t:=abs(a[2]-a[1]);

kt:=0;

for i:=1 to n do 

if t<>abs(a[i]-a[i-1]) then 

begin

kt:=1;

break;

end;

if kt=0 then writeln('Day la cap so cong')

else writeln('Day khong la cap so cong');

readln;

end.

11 tháng 11 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i,x;

int main()

{

long long t=0;

cin>>n;

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

{

cin>>x;

t=t+x;

}

cout<<t;

return 0;

}

Đề bài yêu cầu gì?

11 tháng 11 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i,x;

int main()

{

cin>>n;

long long s=1;

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

{

cin>>x;

s=s*i;

}

cout<<s;

return 0;

}