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.

15 tháng 4 2022

program bt;
uses crt;
var i, s, sa, sd, sc, sl, da, dd, dc, dl : integer;
a : array[1..50] of integer;
begin
        clrscr;
        for i:=1 to 10 do begin
         write('Nhap phan tu thu ',i,': '); readln(a[i]);
        end;
        write('Day so vua nhap la: ');
        for i:=1 to 10 do write(a[i],', ');
        writeln;
        s := 0; sa := 0; sd := 0; sc := 0; sl := 0; da := 0; dd := 0; dc := 0; dl := 0;
        for i:=1 to 10 do begin
         s := s + a[i];
         if (a[i] > 0) then begin sd := sd + a[i]; dd := dd + 1 end;
         if (a[i] < 0) then begin sa := sa + a[i]; da := da + 1 end;
         if (a[i] mod 2 = 0) then begin sc := sc + a[i]; dc := dc + 1; end
         else begin sl := sl + a[i]; dl := dl + 1 end;
        end;
        writeln('Tong cac phan tu trong mang la ',s);
        writeln('Trung binh cong cac phan tu trong mang la ',s/10);
        writeln('Tong cac so am la ',sa);
        writeln('Tong cac so duong la ',sd);
        writeln('Tong cac so chan la ',sc);
        writeln('Tong cac so le la ',sl);
        writeln('So cac so am la ', da);
        writeln('So cac so duong la ', dd);
        writeln('So cac so chan la ', dc);
        writeln('So cac so le la ', dl);
        readln
end.

1.viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử. Tính tổng là các số chẵn và in các phần tử đó lên màn hình. 2.Viết chương trình nhập vào mã số nguyên n phần tử. Tính tích các phần tử trong mảng và in các phần tử của mảng là số trong mảng lên màn hình. 3. Viết chương trình nhập vào mã số nguyên n phân tử. Đếm xem phần mảng có bao nhiêu phần tử lớn hơn 0. Tính và thông báo lên màn hình tổng bình phương...
Đọc tiếp

1.viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử. Tính tổng là các số chẵn và in các phần tử đó lên màn hình. 2.Viết chương trình nhập vào mã số nguyên n phần tử. Tính tích các phần tử trong mảng và in các phần tử của mảng là số trong mảng lên màn hình. 3. Viết chương trình nhập vào mã số nguyên n phân tử. Đếm xem phần mảng có bao nhiêu phần tử lớn hơn 0. Tính và thông báo lên màn hình tổng bình phương các số lẻ.Tìm và thông báo lên màn hình giá trị lớn nhất có trong mảng. 4. Viết chương trình nhập vào 2 số nguyên A,B a) Tính rồi thông báo lên màn hình các ước số của A,B b) Tìm rồi thông báo lên màn hình các ước số chung của A và B. 5.Viết chương trình nhập vào 1 số nguyên ban đầu, nhập vào công sai. Thông báo lên màn hình kết quả của cấp số cộng thứ N n số với n số nguyên được nhập vào màn hình. 6.Viết chương trình in ra màn hình các số nguyên tố đầu tiên trong khoảng N với N là số nguyên nhập vào từ bàn phím. 7. Viết chương trình in lên màn hình một số hoàn thiện nhở hơn N với N là số nguyên nhập vào từ bàn phím. 8. Viết chương trình nhập vào số lượng học sinh và số môn học của mỗi học sinh. Tính và biểu thị lên điểm trung bình của từng học sinh Giúp tớ với ạ Giúp được câu nào thì giúp ạ Nhất là mấy câu cuối cuối ý ạ Rất mong sự giúp đỡ từ mọi người!!!

5
27 tháng 4 2021

 tách ra từng câu hỏi đi bro

Câu 1: 

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t:=0;

for i:=1 to n do 

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

writeln(t);

readln;

end.

BT1: Viết chương trình nhập vào một mảng gồm 10 phần tử số nguyên. In ra màn hình mảng vừa nhập và tính tổng các phần tử trong mảng. BT2: Viết chương trình nhập vào một mảng gồm 10 phần tử số thực. In ra màn hình các phần tử có chỉ số chẵn trong mảng. BT3: Viết chương trình nhập vào một mảng gồm n phần tử số nguyên. In ra màn hình các phần tử có giá trị chẵn trong mảng. BT4: Viết...
Đọc tiếp

BT1: Viết chương trình nhập vào một mảng gồm 10 phần tử số nguyên. In ra màn hình mảng vừa nhập và tính tổng các phần tử trong mảng. BT2: Viết chương trình nhập vào một mảng gồm 10 phần tử số thực. In ra màn hình các phần tử có chỉ số chẵn trong mảng. BT3: Viết chương trình nhập vào một mảng gồm n phần tử số nguyên. In ra màn hình các phần tử có giá trị chẵn trong mảng. BT4: Viết chương trình nhập vào một mảng gồm n phần tử số nguyên. In ra màn hình phần tử có giá trị lớn nhất trong mảng. BT5: Viết chương trình nhập vào một mảng gồm n phần tử số thực. In ra màn hình chỉ số của phần tử nhỏ nhất trong mảng. BT6: Viết chương trình nhập vào một mảng gồm n phần tử số nguyên. Đếm xem trong mảng vừa nhập có bao nhiêu phần tử lẻ.

1

6:

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,A[100],i,dem=0;

cin>>n;

for (int i=1; i<=n; i++) cin>>A[i];

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

if (A[i]%2!=0) dem++;

cout<<dem;

return 0;

}

5:

#include <bits/stdc++.h>

using namespace std;

int main()

{

long long n,nn=1e6,A[1000];

cin>>n;

for (int i=1; i<=n; i++) cin>>A[i];

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

nn=min(nn,A[i]);

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

if (nn==A[i]) cout<<i<<" ";

return 0;

}

uses crt;

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

i,dem,t:integer;

begin

clrscr;

for i:=1 to 6 do 

  begin

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

end;

dem:=0;

t:=0;

for i:=1 to 6 do 

if a[i]>0 then 

begin

inc(dem);

t:=t+a[i];

end;

writeln('So phan tu duong la: ',dem);

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

readln;

end.

Bài 1: 

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

  if a[i] mod 2<>0 then write(a[i]:4);

readln;

end.

Bài 2: 

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do

  if a[i] mod 2=0 then write(a[i]:4);

readln;

end.

Câu 1: 

uses crt;

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

i,n:integer;

t:real;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t:=0;

for i:=1 to n do 

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

writeln(t:4:2);

readln;

end.

Câu 2: 

uses crt;

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

i,n:integer;

t:real;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t:=1;

for i:=1 to n do 

  t:=t*a[i];

writeln(t:4:2);

readln;

end.

26 tháng 2 2023

# 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)

      

Câu 1: 

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(t);

readln;

end.

Câu 2: 

uses crt;

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

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

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

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

kt:=0;

dem:=0;

for i:=1 to n do 

if a[i]=x then 

begin

kt:=1;

write(i:4);

inc(dem);

end;

if kt=0 then writeln('Khong co ',x,' trong day');

writeln(x,' xuat hien ',dem,' lan trong day');

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i,dem,t,j,t1;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

dem=0;

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

{

t=0;

for (j=1; j<=a[i]-1; j++)

if (a[i]%j==0) t+=j;

if (t==a[i]) dem++;

}

cout<<dem<<endl;

t1=0;

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

if (a[i]%2==0) t1+=a[i];

cout<<t1;

return 0;

}

25 tháng 5 2022

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i,dem,t,j,t1;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

dem=0;

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

{

t=0;

for (j=1; j<=a[i]-1; j++)

if (a[i]%j==0) t+=j;

if (t==a[i]) dem++;

}

cout<<dem<<endl;

t1=0;

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

if (a[i]%2==0) t1+=a[i];

cout<<t1;

return 0;

}