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 n,i,chan,tonchan:integer;
a:array[1..100] of integer;
begin
write('nhap n '); readln(n);
for i:=1 to n do
begin
write('a[i]='); readln(a[i]);
end;
writeln("in cac phan tu trong mang");
for i:=1 to n do
begin
writeln(a[i]);
end;
writeln("in cac phan tu chan");
chan:=0;
for i:=1 to n do
if n mod 2=0 then begin writeln(a[i]); chan:=chan+1; end;
write('tong cac phan tu chan ',chan);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
write(a[i]:4);
writeln;
for i:=1 to n do
if (a[i]+a[i+1] mod 10=0) then
begin
writeln(a[i],' ',a[i+1]);
writeln(i,' ',i+1);
end;
readln;
end.
var a:array[1..1000] of integer;
i,n,d,max:integer;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' = ');readln(a[i]);
if a[i] mod 2 <> 0 then d:=d+1;
end;
max:=a[1];
for i:=2 to n do
if a[i] > max then max:=a[i];
writeln('Co ',d,' so le');
write('So lon nhat la ',max);
readln
end.
def dem_phan_tu(mang):
return len(mang)
def tinh_tong_duong(mang):
tong = 0
for num in mang:
if num > 0:
tong += num
return tong
def tinh_trung_binh_duong(mang):
tong = tinh_tong_duong(mang)
so_luong_duong = 0
for num in mang:
if num > 0:
so_luong_duong += 1
if so_luong_duong > 0:
trung_binh = tong / so_luong_duong
return trung_binh
else:
return 0
def tim_vi_tri_dau_tien(mang, k):
for i in range(len(mang)):
if mang[i] == k:
return i
return -1
def la_so_nguyen_to(n):
if n <= 1:
return False
for i in range(2, int(n**0.5) + 1):
if n % i == 0:
return False
return True
def dem_so_nguyen_to(mang):
count = 0
for num in mang:
if num > 0 and la_so_nguyen_to(num):
count += 1
return count
n = int(input("Nhập số phần tử của mảng: "))
mang = [ ]
for i in range(n):
num = int(input(f"Nhập phần tử thứ {i+1}: "))
mang.append(num)
print("Số lượng phần tử trong mảng là:", dem_phan_tu(mang))
print("Tổng các phần tử dương trong mảng là:", tinh_tong_duong(mang))
print("Trung bình các phần tử dương trong mảng là:", tinh_trung_binh_duong(mang))
k = int(input("Nhập giá trị k: "))
vi_tri_dau_tien = tim_vi_tri_dau_tien(mang, k)
if vi_tri_dau_tien != -1:
print(f"Vị trí đầu tiên của {k} trong mảng là:", vi_tri_dau_tien)
else:
print(f"{k} không có trong mảng.")
print("Số lượng phần tử là số nguyên tố dương trong mảng là:", dem_so_nguyen_to(mang))
Var a:array:[1..1000] of real;
i,n,max,min,s:real;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
max:=a[1];
min:=a[1];
For i:=2 to n do
Begin
If a[i] > max then max:=a[i];
If a[i] < min then min:=a[i];
End;
Write('Cac so vua nhap la ');
for i:=1 to n do write(a[i]:10:2):
Writeln;
Writeln('Tong la ',s:10:2);
Writeln('So nho nhat la ',min:10:2);
Write('So lon nhat la ',max:10:2);
Readln
End.
var
Mang: array[1..100] of Integer;
N, i, Tong, Min, Max: Integer;
begin
// Yêu cầu nhập độ dài của dãy số từ bàn phím
Write('Nhap do dai cua day so: ');
ReadLn(N);
// Yêu cầu nhập các phần tử của dãy từ bàn phím
for i := 1 to N do
begin
Write('Nhap phan tu thu ', i, ': ');
ReadLn(Mang[i]);
end;
// In ra màn hình các số vừa nhập
Write('Cac so vua nhap: ');
for i := 1 to N do
begin
Write(Mang[i], ' ');
end;
WriteLn;
// Tính tổng các phần tử của dãy số
Tong := 0;
for i := 1 to N do
begin
Tong := Tong + Mang[i];
end;
WriteLn('Tong cac phan tu cua day so la: ', Tong);
// Tìm giá trị nhỏ nhất của dãy số
Min := Mang[1];
for i := 2 to N do
begin
if Mang[i] < Min then
Min := Mang[i];
end;
WriteLn('Gia tri nho nhat cua day so la: ', Min);
// Tìm giá trị lớn nhất của dãy số
Max := Mang[1];
for i := 2 to N do
begin
if Mang[i] > Max then
Max := Mang[i];
end;
WriteLn('Gia tri lon nhat cua day so la: ', Max);
ReadLn;
end.
uses crt;
var a:array[1..50]of int64;
i,n,t,max,min:int64;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
max:=a[1];
min:=a[1];
t:=0;
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
t:=t+a[i];
end;
writeln('Tong la: ',t);
writeln('So lon nhat la: ',max);
write('Vi tri la: ');
for i:=1 to n do
if a[i]=max then write(i:4);
writeln;
writeln('So nho nhat la: ',min);
write('Vi tri la: ');
for i:=1 to n do
if a[i]=min then write(i:4);
readln;
end.
program hotrotinhoc;
var a,b: array[1..8000] of integer;
c,d1: array[1..8000] of ansistring;
j,i,d,d2,n: integer;
t,t1,tg,tg1,st,s: ansistring;
begin
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
write('b[',i,']='); readln(b[i]);
end;
for i:=1 to n do if a[i] mod 2 =0 then
begin
str(a[i],t);
s:=s+t;
end
else
begin
str(a[i],t1);
st:=st+t1;
end;
for i:=1 to n do if b[i] mod 2=0 then
begin
str(b[i],t);
s:=s+t;
end
else
begin
str(b[i],t1);
st:=st+t1;
end;
d:=0;
for i:=1 to length(s) do
begin
inc(d);
c[d]:=s[i];
end;
for i:=1 to d do for j:=i to d do
if c[i]>c[j] then
begin
tg:=c[i];
c[i]:=c[j];
c[j]:=tg;
end;
for i:=1 to d do write(c[i],' ');
d2:=0;
for i:=1 to length(st) do
begin
inc(d2);
d1[d2]:=st[i];
end;
for i:=1 to d2 do
for j:=i to d2 do
if d1[i]<d1[j] then
begin
tg1:=d1[i];
d1[i]:=d1[j];
d1[j]:=tg1;
end;
for i:=1 to d2 do write(d1[i],' ');
readln
end.
Bạn kiểm tra lại đề nhé, đề đã yêu cầu nhập rồi nhưng sao lại yêu cầu gán cho 20 phần tử bằng 9, phần tử đầu là 20?