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..100]of longint;
i,n,t,t1,tam,j:integer;
s,s1:int64;
begin
clrscr;
repeat
write('nhap n='); readln(n);
until n>0;
for i:=1 to n do
begin
repeat
write('a[',i,']='); readln(a[i]);
until a[i]>=0;
end;
writeln('Mang A=');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong gia tri cua mang A la: ',t);
s:=1;
for i:=1 to n do
s:=s*i;
writeln('Tich cac gia tri cua mang A la: ',s);
t1:=0;
for i:=1 to n do
if i mod 2=0 then t1:=t1+a[i];
writeln('Tong cac gia tri o vi tri chan la: ',t1);
s1:=1;
for i:=1 to n do
if i mod 2<>0 then s1:=s1*a[i];
writeln('Tich cac gia tri o vi tri le la: ',s1);
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;
writeln('Mang A sau khi sap xep la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln('Cac phan tu co gia tri lon hon 10 la: ');
for i:=1 to n do
if a[i]>10 then write(a[i]:4);
readln;
end.

13 tháng 5 2020

Vâng c.on ạ

5 tháng 1 2023

pascal giúp ,mik đc ko

 

 

13 tháng 4 2021

program hoc24;

uses crt;

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

i,d,s: longint;

begin

clrscr;

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

s:=0;

for i:=1 to n do

if a[i]>0 then

begin

inc(d);

s:=s+a[i];

end;

writeln(d,s);

readln

end.

13 tháng 4 2021

bài chưa chạy thử bạn chạy lại xem nếu k đc thì bảo

uses crt;

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

i,n,dem,kt,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

for i:=1 to n do 

  if a[i] mod 3=0 then inc(dem);

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

kt:=0;

for i:=1 to n do 

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

begin

kt:=1;

break;

end;

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

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

readln;

end.

uses crt;

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

i,n,dem,dem1,kt,j:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

for i:=1 to n do 

  if sqrt(a[i])=trunc(sqrt(a[i])) then 

begin

inc(dem);

b[dem]:=a[i];

end;

dem1:=0;

for i:=1 to n do

  if a[i]>1 then

begin

kt:=0;

for j:=2 to trunc(sqrt(a[i])) do 

  if a[i] mod j=0 then kt:=1;

if kt=0 then 

begin

inc(dem1);

c[dem1]:=a[i];

end;

end;

if dem=0 then writeln('Trong day khong co so chinh phuong')

else begin

writeln('Cac so chinh phuong trong day la: ');

for i:=1 to dem do 

  write(b[i]:4);

end;

if dem1=0 then writeln('Trong day khong co so nguyen to')

else begin

writeln('Cac so nguyen to trong day la: ');

for i:=1 to dem1 do 

  write(c[i]:4);

end;

readln;

end.

1 tháng 1 2016

Tập hợp Z gồm 3 phần: phần số nguyên dương, số nguyên; và số nguyên âm

Tập hợp các số nguyên dương ={1;2;3;4;5;6;7;8;9;........................}

Tập hợp các số nguyên âm = {-1;-2;-3;-4;-5;-6;-7;...............}

Số 0 ko phải là phần tử của số nguyên âm hay nguyên dương

Tập hợp các số tự nhiên ={0;1;2;3;4;5;6;7;8;..........}

 happy new year 

( năm mới chúc bạn học giỏi, dồi dào sức khỏe và hạnh phúc bên ngừi thân nhé!)

1 tháng 1 2016

3: dương;0;âm

 

24 tháng 5 2023

Để giải quyết bài toán này, chúng ta cần nhập vào một dãy số và in ra dãy số đó theo nguyên tắc 1 dòng gồm 10 phần tử, dòng cuối có thể có ít hơn 10 phần tử. Sau đây là mã nguồn Python để thực hiện việc này:

```python
n = int(input("Nhập số phần tử của dãy: "))
a = []

for i in range(n):
a.append(int(input("Nhập phần tử thứ {}: ".format(i+1))))

count = 0

for i in range(n):
print(a[i], end=" ")
count += 1
if count == 10:
print()
count = 0

if count != 0:
print()
```

Giải thích:

Dòng 1: Nhập số phần tử của dãy.Dòng 2: Khởi tạo một danh sách rỗng để lưu trữ các phần tử của dãy.Dòng 4-5: Sử dụng vòng lặp for để nhập các phần tử của dãy từ bàn phím và thêm chúng vào danh sách a.Dòng 7: Khởi tạo biến count với giá trị ban đầu là 0, biến này sẽ được sử dụng để đếm số phần tử đã in ra trên mỗi dòng.Dòng 9-13: Sử dụng vòng lặp for để duyệt qua các phần tử của dãy a, in ra từng phần tử và tăng biến count lên 1. Nếu count đạt giá trị 10, in ra ký tự xuống dòng và reset lại biến count về 0.Dòng 15-16: Kiểm tra xem dòng cuối cùng có đủ 10 phần tử hay không, nếu không thì in ra ký tự xuống dòng để kết thúc dòng cuối cùng.

Ví dụ:

```
Nhập số phần tử của dãy: 15
Nhập phần tử thứ 1: 1
Nhập phần tử thứ 2: 2
Nhập phần tử thứ 3: 3
Nhập phần tử thứ 4: 4
Nhập phần tử thứ 5: 5
Nhập phần tử thứ 6: 6
Nhập phần tử thứ 7: 7
Nhập phần tử thứ 8: 8
Nhập phần tử thứ 9: 9
Nhập phần tử thứ 10: 10
Nhập phần tử thứ 11: 11
Nhập phần tử thứ 12: 12
```

uses crt;

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

n,i,max,min,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

max:=a[1];

for i:=1 to n do 

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

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Gia tri lon nhat la: ',max);

writeln('Gia tri nho nhat la: ',min);

writeln('Trung binh cua day so la: ',t/n:4:2);

readln;

end.

Dạng 1: ÍT NHẤT Bài 1: Viết chương trình tạo 1 mảng số nguyên có ít nhất 10 phần tử. In giá trị các phần tử có trong mảng ra màn hình. Bài 2: Viết chương trình tạo 1 mảng có ít nhất 10 phần tử. In giá trị các phần tử có trong mảng ra màn hình. Dạng 2: TỐI ĐA Bài 1: Viết chương trình tạo 1 mảng số nguyên có tối đa 100 phần tử. In giá trị các phần tử có trong...
Đọc tiếp

Dạng 1: ÍT NHẤT
Bài 1: Viết chương trình tạo 1 mảng số nguyên có ít nhất 10 phần tử. In giá trị
các phần tử có trong mảng ra màn hình.
Bài 2: Viết chương trình tạo 1 mảng có ít nhất 10 phần tử. In giá trị các phần tử
có trong mảng ra màn hình.
Dạng 2: TỐI ĐA
Bài 1: Viết chương trình tạo 1 mảng số nguyên có tối đa 100 phần tử. In giá trị
các phần tử có trong mảng ra màn hình.
Bài 2: Viết chương trình tạo 1 mảng có tối đa 100 phần tử. In giá trị các phần
tử có trong mảng ra màn hình.
Dạng 3: GỒM
Bài 1: Viết chương trình tạo 1 mảng số nguyên gồm 5 phần tử. In giá trị các
phần tử có trong mảng ra màn hình.
Bài 2: Viết chương trình tạo 1 mảng gồm 10 phần tử. In giá trị các phần tử có
trong mảng ra màn hình.

0