Những câu hỏi liên quan
Trang Hà
Xem chi tiết
Lân Trần Quốc
30 tháng 3 2021 lúc 22:46

Mình nghĩ mình sẽ không đưa code, mà chỉ đưa ý tưởng thôi nhé.

1. Khai báo n, mảng a và s = 0. Với mỗi phần tử a, ta cộng nó vào s. Cuối ta in ra s/n.

2. Cũng khai báo n, mảng a và 2 biến s1 (lưu tổng lẻ) và s2 (lưu tổng chẵn). Với mỗi a, ta kiểm tra số đó có phải là số chẵn hay lẻ (if n mod 2 = 0) và cộng vào s1 (nếu là chẵn) hoặc s2 (nếu là lẻ) và in ra.

3. Khai báo n, mảng a và minn để chứa số nhỏ nhất. Với mỗi a, tìm minn bằng cách so sánh a với minn và gán lại minn nếu nó lớn hơn a. Sau đó cho chạy thêm một vòng nữa để kiểm tra xem số nào là số minn, và in chỉ số của nó ra.

Nếu có gì thắc mắc, hỏi kỹ mình, mình sẽ giúp đỡ nhé.

Chúc bạn học tốt ok.

 

Bình luận (0)
Nguyễn Lê Phước Thịnh
30 tháng 3 2021 lúc 22:57

Câu 1: 

uses crt;

var n,i,t: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;

t:=0;

for i:=1 to n do 

 t:=t+a[i];

writeln(t/n:4:2);

readln;

end.

Bình luận (1)
Nguyen Hung
29 tháng 4 2021 lúc 8:52

Câu 1:

Program Tin_hoc;

Uses crt;

Var i,n,tong:integer;

      tb:real;

      a:array[1..1000] of integer;

Begin

clrscr;

Write('Nhap n: ');readln(n);

tong:=0;

Writeln('Nhap ',n,' phan tu cua day:');

for i:= 1 to n do

  begin

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

  readln(a[i]);

  tong:=tong+a[i];

  end;

tb:=tong/n;

Writeln('Gia tri trung binh cua day la: ',tb:0:4);

readln;

end.

Bình luận (0)
29_LÃ XUÂN SƠN
Xem chi tiết
Nguyễn Văn Tú
Xem chi tiết
Cheriiiiihehe
Xem chi tiết
Kaito Kid
28 tháng 4 2022 lúc 16:34

bạn tham khảo 

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.

Bình luận (2)
Kiều Vũ Linh
28 tháng 4 2022 lúc 13:18

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

i,n,dem1,dem2:integer;

begin

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

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' = ');readln(a[i]);

end;

dem1:=0;

dem2:=0;

for i:=1 to n do

begin

if i = n then write(a[i])

else write(a[i],' ');

if a[i] mod 2 = 0 then dem1:=dem1+1

else dem2:=dem2+1;

end;

writeln('So cac phan tu chan la ',dem1);

write('So cac phan tu le la ',dem2);

readln;

end.

Bình luận (1)
Khánh Linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 2 2022 lúc 8:21

#include <bits/stdc++.h>

using namespace std;

long long a[10000],i,n;

int main()

{

cin>>n;

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

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

cout<<endl;

t=0;

for (i=1; i<=n; i++) if (a[i]%2==0) t+=a[i];

cout<<"Tong cac so chan la: "<<t<<endl;

sort(a+1,a+n+1);

cout<<"Day so giam dan la: ";

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

return 0;

}

Bình luận (1)
Trần Văn Việt Hùng
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 3 2022 lúc 20:31

uses crt;

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

i,n,t,t1,j,tam:integer;

begin

clrscr;

readln(n);

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

t:=0;

for i:=1 to n do t:=t+a[i];

t1:=0;

for i:=1 to n do 

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

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(t);

writeln(t1);

for i:=1 to n do write(a[i]:4);

readln;

end.

Bình luận (0)
nhannhan
Xem chi tiết
Phía sau một cô gái
2 tháng 4 2023 lúc 22:15

program sapxep;

var

     i, j, n, x: integer;

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

begin

     write('Nhap so phan tu trong day: ');

     readln(n);

     for i := 1 to n do

     begin

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

          readln(a[i]);

     end;

     for i := 1 to n - 1 do

          for j := i + 1 to n do

               if a[i] > a[j] then

               begin

                    x := a[i];

                    a[i] := a[j];

                    a[j] := x;

               end;

     write('Nhap so x: ');

     readln(x);

     for i := 1 to n do

     begin

          if x <= a[i] then

          begin

               for j := n downto i + 1 do

                    a[j] := a[j-1];

               a[i] := x;

               break;

          end;

     end;

     writeln('Day so vua sap xep va them phan tu x:');

     for i := 1 to n do

          write(a[i], ' ');

     writeln;

end.

Bình luận (0)
nhannhan
Xem chi tiết
Khánh Linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
1 tháng 3 2022 lúc 8:08

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n;

int main()

{

cin>>n;

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

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

cout<<endl;

cout<<"Cac so duong la: ";

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

cout<<endl;

for (i=1; i<=n; i++) if (a[i]%2==0) cout<<a[i]<<" ";

for (i=1; i<=n; i++) if (a[i]%2!=0) cout<<a[i]<<" ";

return 0;

}

Bình luận (0)