Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Lỏ An Hoà Hacker
Xem chi tiết
Nguyễn Ngọc Linh Đan
Xem chi tiết
Huy Phạm
Xem chi tiết
Kiều Vũ Linh
3 tháng 5 2023 lúc 6:12

1)

Var array:[1..1000] of integer;

i,n,t:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

For i:=1 to n do

If a[i] > a[i+1] then

Begin

t:=a[i];

a[i]:=a[i+1];

a[i+1]:=t;

End;

Write('Sap xep tang dan ');

For i:=1 to n do write(a[i]:8);

Readln

End.

Kiều Vũ Linh
3 tháng 5 2023 lúc 6:13

2)

Var array:[1..1000] of integer;

i,n,t:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

For i:=1 to n do

If a[i] < a[i+1] then

Begin

t:=a[i];

a[i]:=a[i+1];

a[i+1]:=t;

End;

Write('Sap xep giam dan ');

For i:=1 to n do write(a[i]:8);

Readln

End.

Nguyễn Văn Hậu
Xem chi tiết
Minh Lệ
26 tháng 5 2021 lúc 22:30

Program HOC24;

var i,n: integer;

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

begin

write('Nhap N:' ); readln(n);

for i:=1 to n do 

begin

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

end;

write('Nhap vua nhap la: '); 

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

readln

end.

Lê Thị Thu Phương
7 tháng 6 2021 lúc 20:57

uses crt;
var a:array[1..1000000] of longint;
      n,i:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do 
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
            end;
      write('Day so vua nhap: ');
      for i:=1 to n do write(a[i],' ');
      readln;
end.

Bùi Minh Dũng
Xem chi tiết
nguyễn an phát
26 tháng 5 2021 lúc 21:14

program max_min;

uses crt;

var i,n:integer;

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

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do

begin

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

end;

writeln('day vua nhap la:');

for i:=1 to n do

write(a[i]:3);

readln;

end.

Đỗ Nguyễn Thùy Lâm
Xem chi tiết
Kiều Vũ Linh
5 tháng 5 2023 lúc 8:10

a) var a:array[1..1000] of integer;

i,k:integer;

p:longint;

begin

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

p:=1;

for i:=1 to k do

begin

write('Nhap so thu ',i,' = ');readln(a[i]);

if a[i]<30 then p:=p*a[i];

end;

write('Tich la ',p);

readln

end.

b) 

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

i,k:integer;

s:longint;

begin

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

for i:=1 to k do

begin

write('Nhap so thu ',i,' = ');readln(a[i]);

if a[i]<100 then s:=s+a[i];

end;

write('Tong la ',s);

readln

end.

Haruko Sumi
Xem chi tiết
Nguyễn Khắc Minh Quân 4a...
1 tháng 3 2016 lúc 18:01

???????????????????????????????????????????????????????????????????????????????????????????????????????????????????

Leicester City
Xem chi tiết
Thắng Nguyễn
1 tháng 3 2016 lúc 12:49

toán lớp 4 mà bn, đây là cách giải đầy đủ nhất

Ta xét từng dãy số :

*S1: Ta nhận thấy : dãy trên toàn chữ số lẻ. Mà  1000 là số chẵn

=>1000 không thuộc  S1 

*S2:Ta nhận thấy :  dãy trên được viết theo quy luật : Mỗi số hạng ( kể từ số hạng thứ 2) bằng số hạng đứng trước nó cộng 4

Ta thấy :

2:4=0 dư 2                                              14:4=3 dư 2

6:4=1 dư 2                                           18:4=4 dư 2

10:4=2 dư 2                                        ………………….

Vậy dãy số trên là dãy số chia cho 4 dư 2

Mà  1000:4=250 dư 0

=>1000 không thuộc S2 

*S3: Ta nhận thấy : dãy trên được viết theo quy luật: Mỗi số hạng ( kể từ số hạng thứ 2) bằng số hạng đứng trước nó cộng  8.

Ta thấy :

4:8=0 dư 4                                     28:8=3 dư 4

12:8=1 dư 4                                   36:8=4 dư 4

20:8=2 dư 4                               …………..

Vậy dãy trên là dãy số chia cho 8 dư 4

Mà  1000:8=125 dư 0

=>1000 không thuộc  S3

*S4:Ta nhận thấy :dãy trên được viết theo quy luật: Mỗi số hạng (kể từ số hạng thứ 2) bằng số hạng thứ đứng trước nó cộng  16

8:16=0 dư 8                             56:16=3 dư 8

24:16=1 dư 8                           72:16=4 dư 8

40:16=2 dư 8                          ………………

Vậy dãy trên là dãy số chia cho 16 dư 8

Mà 1000:16=62 dư 8

=>1000 thuộc S4

Vậy 1000 nằm ở S4

Nguyen Trung Nguyen
Xem chi tiết