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.

Bình luận (0)
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.

Bình luận (0)
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.

Bình luận (0)
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ình luận (0)
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.

Bình luận (0)
Đỗ 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.

Bình luận (0)
Haruko Sumi
Xem chi tiết
Nguyễn Khắc Minh Quân 4a...
1 tháng 3 2016 lúc 18:01

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

Bình luận (0)
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

Bình luận (0)
Nguyen Trung Nguyen
Xem chi tiết