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.

Bài 1:

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

 if i mod 6=0 then s:=s+i;

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,b,c,ucln,i:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

while a<>b do 

  begin

if a>b then a:=a-b

else b:=b-a;

end;

ucln:=a;

while ucln<>c do 

 begin

if ucln>c then ucln:=ucln-c

else c:=c-ucln;

end;

writeln(ucln);

readln;

end.

14 tháng 2 2018

bài 1:

 a, -9 \(\le\)x\(\le\)8

\(\Rightarrow\)\(\in\){-9, -8, -7, ..., -1, 0, 1, 2,,...., 8}

tổng các giá trị của x là:          (-9) + (-8) + (-7 )+ ... + (-1 )+ 0 + 1 +2 +....+ 8

                                            = (-9) + [(-8) +8] + [(-7 ) + 7] + ....+ [ -1 +1] +0

                                           = -9 +0+0+0....+0

                                            = -9

các câu sau làm tương tự

bài 2 ;

các câu a, b tương tự.

c, |x|< 7

suy ra - 7 < x< 7

làm tương tự

9 tháng 3 2021

program so_lon_nhat;
uses crt;
var a: array[1..100] of integer;
i,n,max,k,dem: integer;
s,tbc: real;
begin
clrscr;
writeln(' nhap so phan tu cua day'); readln(n);

for i:=1 to n do
begin
writeln('a[',i,']'); readln(a[i]);
end;
writeln(' nhap so can tim:'); readln(k);
max:=a[1];
i:=1;
dem:=0;
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
s:=s+a[i];
tbc:=s/n;
if a[i]=k then dem:=dem+1;
end;
writeln(' so lon nhat trong day tren la:',max);
while (i<n) and (a[i]<>k) do i:=i+1;
if a[i]=k then writeln(' phan tu thu ', i ,' bang ',k)
else writeln(' k tim dc phan tu',k);
writeln(tbc:6);
writeln('co', dem, ' phan tu', k);
readln
end.

27 tháng 2 2020

a=1,b=30

27 tháng 2 2020

a.b=30=1.30=2.15=3.10=5.6

mà a< b, a+b lớn nhất

suy ra a=1, b =30

a,Vì hai số quy định lớn nhất và nhỏ nhất đối nahu nên có tổng bằng 0

b, Có các số thõa mãn là : 7 ; 8 ; 9 ; 10

Tổng các số là: 7 + 8 + 9 + 10 = 34

Đáp số a = 0

            b = 34

19 tháng 1 2019

cái lồn