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..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.

uses crt;

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

n,i,k,t,t1:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

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

t:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then t:=t+a[i];

t1:=0;

for i:=1 to n do 

  if a[i] mod k=0 then t1:=t1+a[i];

writeln('Tong cac phan tu le la: ',t);

writeln('Tong cac phan tu la boi cua ',k,' la: ',t1);

readln;

end.

18 tháng 12 2021

Câu 3: Nhập một mảng gồm N phần tử.

A, tính tổng chẵn, tổng lẻ của các phấn tử trong mảng.

B, Tìm phần tử lớn nhất, nhỏ nhất trong mảng.

C, Tìm kiếm xem phần tử K nào đó có tồn tại trong mảng hay không?

 

 

14 tháng 9 2017

1. Các ước của 42 là: 1; 2; 3; 6; 7; 21

 tổng: 1 + 2 + 3 + 6 + 7 + 21 = 36

2. Giống như trên

14 tháng 12 2022

làm c++

NM
17 tháng 10 2021

bội của 15 có dạng : 15xk

mà \(100< 15\times k< 200\Leftrightarrow7\le k\le13\)

nên tập hợp bội 15 nằm trong khoang 100 đến 200 là :

{105,120,135,150,165,180,195}

14 tháng 12 2020

B. Tổng của hai số nguyên dương là một số nguyên dương.

C và D tùy.

A thì ngược lại mới đúng nhé

VD : - 1 > - 2

| - 1 | = 1 < | - 2 | = 2

14 tháng 12 2020

B đúng (VD: 3 + 2 = 5)

A sai (VD: -3 > -4 \(\Rightarrow\) (|-3| = 3) < (|-4| = 4))

C sai (VD: -2 + 3 = 1 là số nguyên dương)

D sai (VD: 3 - 4 = -1 là số nguyên âm)

Chúc bn học tốt!