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.

uses crt;

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

i,n,dem:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

  readln(a[i]);

dem:=0;

for i:=1 to n do 

  if (a[i] mod 2=0) and (i mod 2=1) then dem:=dem+1;

writeln(dem);

readln;

end.

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

 

18 tháng 12 2021

#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;

}

24 tháng 4 2022

Đúng là anh thành sứt, lên đây hỏi ạ.

 

uses crt;

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

n,i,t,max,min:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t:=0;

for i:=1 to n do 

 if a[i] mod 3=0 then t:=t+a[i];

writeln('Tong cac so la boi cua 3 la: ',t);

max:=a[1];

min:=a[1];

for i:=1 to n do 

begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('Gia tri lon nhat la: ',max);

writeln('Gia tri nho nhat la: ',min);

readln;

end.

11 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

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

int main()

{

cin>>n;

t=0;

dem=0;

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

{

cin>>x;

t=t+x;

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

}

cout<<t<<endl;

cout<<dem;

return 0;

}

Đề bải có yêu cầu thêm gì không bạn?