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
Phương Vũ Hà
Xem chi tiết
Nguyễn Lê Phước Thịnh
1 tháng 3 2021 lúc 17:19

uses crt;

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

n,i,k,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;

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

max:=a[1];

for i:=1 to n do 

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

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

writeln('Vi tri la: ');

for i:=1 to n do 

  if max=a[i] then write(i:4);

writeln;

min:=a[1];

for i:=1 to n do

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

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

writeln('Vi tri la: ');

for i:=1 to n do

if min=a[i] then write(i:4);

writeln;

t:=0;

for i:=1 to n do 

  if i mod 2=0 then t:=t+sqr(a[i]);

writeln('Tong binh phuong cac gia tri o vi tri chan la: ',t);

readln;

end. 

my trần
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 8 2021 lúc 19:15

uses crt;

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

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

begin

clrscr;

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

for i:=1 to n do 

 begin

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

end;

dem:=0;

max:=-32000;

for i:=1 to n do 

  begin

if a[i] mod 2=0 then 

begin

dem:=dem+1;

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

end;

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

else begin

writeln('So so chan la: ',dem);

writeln('So chan lon nhat la: ',max);

end;

t:=0;

for i:=1 to n do 

  if i mod 2=1 then t:=t+a[i];

writeln('Tong cac so o vi tri le la: ',t);

min:=maxint;

dem1:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then

begin  

inc(dem1);

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

end;

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

else writeln('So le nho nhat la: ',min);

readln;

end. 

Trương Thi Minh Thiết
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 3 2022 lúc 20:24

#include <bits/stdc++.h>

using namespace std;

long long a[10000],i,n,t1,t2,dem1,dem2;

int main()

{

cin>>n;

for (i=1; i<=n; i++)

cin>>a[i];

dem1=0;

dem2=0;

t1=0;

t2=0;

for (i=1; i<=n; i++)

{

if (a[i]>0)

{

dem1++;

t1+=a[i];

}

if (a[i]<0)

{

dem2++;

t2+=a[i];

}

}

long long t3=0;

for (i=1; i<=n; i++)

if (i%2==1) t3+=a[i];

long long t4=0;

for (i=1; i<=n; i++)

if (i%2==1 && a[i]%2==0) t4+=a[i];

 cout<<t1<<" "<<t2<<endl;

cout<<dem1<<" "<<dem2<<endl;

cout<<t3<<endl;

cout<<t4<<endl;

for (i=1; i<=n; i++)

if (a[i]%3==0) cout<<a[i]<<" ";

return 0;

}

My meme
Xem chi tiết
Phía sau một cô gái
11 tháng 3 2023 lúc 16:03

n = int(input("Nhập số phần tử của mảng: "))

arr = []

for i in range(n):

     arr.append(int(input("Nhập phần tử thứ " + str(i+1) + ": ")))

even_arr = []

odd_arr = []

for num in arr:

     if num % 2 == 0:

          even_arr.append(num)

     else:

          odd_arr.append(num)

new_arr = even_arr + odd_arr

print("Mảng mới: ", new_arr)

nông thị ngân
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 3 2021 lúc 19:41

uses crt;

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

n,i,k,t,t1:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

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

t:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then t:=t+a[i];

t1:=0;

for i:=1 to n do 

  if a[i] mod k=0 then t1:=t1+a[i];

writeln('Tong cac phan tu le la: ',t);

writeln('Tong cac phan tu la boi cua ',k,' la: ',t1);

readln;

end.

Tô Thị Thanh Tuyền
Xem chi tiết
Phía sau một cô gái
26 tháng 2 2023 lúc 19:47

# Nhap mang

arr = [ ]

for i in range(10):

     arr.append(int(input('Nhap phan tu: ')))

 

# Tinh va xuat ra tong cac phan tu le trong mang tong_cac_phan_tu_le = 0

for x in arr:

     if x % 2 != 0:

          tong_cac_phan_tu_le += x

print('Tong cac phan tu le trong mang la:', tong_cac_phan_tu_le)

 

# Nen va xuat ra ngoai man hinh so phan tu duong trong mang so_phan_tu_duong = 0

for x in arr:

     if x > 0:

          so_phan_tu_duong += 1

print('So phan tu duong trong mang la:', so_phan_tu_duong)

 

# Tinh va xuat ra man hinh trung binh cong cac phan tu trong mang tong_phan_tu = 0

for x in arr:

          tong_phan_tu += x

trung_binh_cong = tong_phan_tu / len(arr)

print('Trung binh cong cac phan tu trong mang la:',trung_binh_cong)

 

# Tim va xuat ra man hinh gia tri va vi tri cua cac phan tu nho nhat trong mang

min_phan_tu = arr[0]

vi_tri_min_phan_tu = 0

for i in range(1, len(arr)):

     if min_phan_tu > arr[i]:

          min_phan_tu = arr[i]

           vi_tri_min_phan_tu = i

print('Gia tri cua phan tu nho nhat trong mang la:', min_phan_tu)

print('Vi tri cua phan tu nho nhat trong mang la:', vi_tri_min_phan_tu)

      
yuki
Xem chi tiết
Trần Cương
Xem chi tiết
Ngô Thành Chung
22 tháng 3 2022 lúc 22:07

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

      i,n,S,d:byte;

 begin

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

  for i:=1 to n do begin

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

                           readln(A[i]);

                          end;

d:=0; S:=0;

for i:=1 to n do if A[i] mod 2 = 0 then begin

                                                          d:=d+1;

                                                           S:=S+A[i];

                                                           end;

write('Dãy có ',d,' phần tử là số chẵn và tổng của chúng là : S = ',S);

readln

end.

                                                          

                      

  

Bửu Nguyễn Đắc
Xem chi tiết