Những câu hỏi liên quan
....
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 2 2021 lúc 13:40

uses crt;

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

i,n,x:integer;   

kt,kt1:boolean;

begin

clrscr;

repeat   

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

until (1<=n) and (n<=5);

for i:=1 to n do 

begin     

repeat       

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

until (-100<=a[i]) and (a[i]<=100); 

end;

kt:=true;

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

for i:=2 to n do 

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

begin       

kt:=false;       

break;     

end;

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

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

kt1:=true;

for i:=1 to n do 

if ((a[i]>0) and (a[i+1]>0)) or ((a[i]<0) and (a[i+1]<0)) then     

begin       

kt1:=false;       

break;     

end;

if kt1=true then writeln('Mang A co doi sanh voi nhau')

else writeln('Mang A khong doi sanh voi nhau');

readln;

end.

Bình luận (0)
Hoàng Đức Long
Xem chi tiết
Vũ Thành Nam
2 tháng 9 2017 lúc 17:22

Bình luận (0)
Hoàng Đức Long
Xem chi tiết
Vũ Thành Nam
29 tháng 12 2017 lúc 4:50

đáp án B

+ Mắc bộ nguồn nối tiếp:

ξ b = n ξ r b = n r ⇒ I 1 = ξ b R + r b = n ξ r + n r

+ Mắc bộ nguồn song song:

ξ b = ξ r b = r n ⇒ I 2 = ξ b R + r b = ξ r + r n = n ξ n r + r

Bình luận (0)
Hoàng Đức Long
Xem chi tiết
Vũ Thành Nam
9 tháng 9 2019 lúc 4:32

Bình luận (0)
Linh Nguyen
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 2 2022 lúc 20:10

uses crt;

var i,n,k:integer;

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

kt:boolean;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do write(a[i]:4);

writeln;

readln(k);

kt:=false;

for i:=1 to n do 

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

if (kt=true) then write('Co k trong mang')

else writeln('Khong co k trong mang');

readln;

end.

Bình luận (0)
Lee Jihoon
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 2 2021 lúc 20:31

uses crt;

var a,b,c:array[1..1000]of integer;   

i,n,dem,max:integer;

begin

clrscr;

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

for i:=1 to n do 

begin     

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

end;

dem:=0;

max:=a[1];

for i:=1 to n do 

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

for i:=1 to n do 

if max=a[i] then     

begin       

inc(dem);       

b[dem]:=a[i];       

c[dem]:=i;     

end;

if dem=1 then writeln('So lon nhat la: ',b[dem],' vi tri la: ',c[dem])

else writeln('So lon nhat la: ',b[1],' vi tri la: ',c[1]);

readln;

end.

Bình luận (1)
Võ Phương Nghi
Xem chi tiết
Phía sau một cô gái
14 tháng 3 2023 lúc 15:20

n = int(input("Nhap so luong phan tu: "))

arr = []

for i in range(n):

     x = float(input("Nhap phan tu thu {}: ".format(i+1)))

     arr.append(x)

arr.sort(reverse=True)

print("Mang da sap xep giam dan: ", arr)

Bình luận (0)
hoho209
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 3 2021 lúc 23:30

Bài 1: 

uses crt;

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

i,n,tam,j:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

for i:=1 to n-1 do

for j:=i+1 to n do 

if a[i]<a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

Bình luận (0)
hoho209
19 tháng 3 2021 lúc 0:35

Làm giúp em câu 2 với ạ

Bình luận (0)
Diễm Phạm Thị Hồng
Xem chi tiết
Diễm Phạm Thị Hồng
31 tháng 7 2023 lúc 22:25

Mn giúp e vơi e đang cần gấp!!!!!

Bình luận (0)