Những câu hỏi liên quan
Lê Thị Hà Giang
Xem chi tiết
anh van
Xem chi tiết
Phạm Hải Lâm
Xem chi tiết
Aaron Boucher
13 tháng 6 2021 lúc 22:43

Đề thi tin học trẻ BT phải ko b?

Mà bài này giải sao nhỉ?

Muốn xem code để tham khảo quá!!!

Bình luận (0)
Huỳnh Tấn Sang
30 tháng 7 2021 lúc 19:30

sắp xếp lại các phần tử theo chiều tăng dần rồi đặt kết quả muốn tìm = 1, so sánh nó với từng phần tử trong mảng, nếu bé hơn thì dừng chương trình và đó là kết quả, nếu không thỉ cộng kết quả cho phần tử đang được so sánh.

code :

program giai;uses crt;var n,m,i,c,t : integer;A : array[1..100] of integer;beginclrscr;write('so phan tu cua day so :');readln(m);for i:=1 to m do    begin         readln(A[i]);    end;for i:= 1 to m do    for n:=i+1 to m do        if A[i] > A[n] then        begin        c:= A[i];        A[i] := A[n];        A[n] := c;        end;t:= 1;for i:=1 to m-1 do    if t < A[i]    then    break    else t:= t+ A[i];writeln(t);readln;end. 
Bình luận (0)
Lê Nguyên Thanh Minh
12 tháng 3 2022 lúc 16:09

Bài này liên quan đến tập hợp. định viết code lên mà thấy dài dòng quá. ai cần hướng dẫn thì liên hệ tôi hướng dẫn cho https://fb.com/minhlnt87

Bình luận (0)
Sự tâm
Xem chi tiết
Bình Minh
Xem chi tiết
Sarah Lilia
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 2 2021 lúc 20:53

uses crt;

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

i,n,dem,dem1,dem2,t:integer;

s:real;

begin

clrscr;

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

for i:=1 to n do 

begin

repeat

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

until a[i]>0;

end;

for i:=1 to n do 

  write(a[i]:4);

writeln;

dem:=0;

for i:=1 to n do

  if a[i]>10 then inc(dem);

writeln('So phan tu lon hon 10 la: ',dem);

dem1:=0;

dem2:=0;

for i:=1 to n do 

begin

if a[i] mod 2=0 then inc(dem1)

else inc(dem2);

end;

writeln('So luong so chan la: ',dem1);

writeln('So luong so le la: ',dem2);

t:=0;

s:=1;

for i:=1 to n do 

  begin

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

if (i mod 2=1) and (a[i] mod 2=0) then s:=s*a[i];

end;

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

writeln('Tich cac so o vi tri le co gia tri chan la: ',s:4:2);

writeln('Cac so le la: ');

for i:=1 to n do 

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

writeln;

writeln('Cac so chan va lon hon 10 la: ');

for i:=1 to n do 

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

readln;

end.

Bình luận (1)
Mộng Chúc
Xem chi tiết
Nguyễn Lê Phước Thịnh
14 tháng 3 2022 lúc 10:03

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,j;

bool kt;

int main()

{

freopen("nguyento.inp","r",stdin);

freopen("nguyento.out","w",stdout);

cin>>n;

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

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

if (a[i]>1) 

{

kt=true;

for (j=2; j*j<=a[i]; j++)

if (a[i]%j==0) kt=false;

if (kt==true) cout<<a[i]<<" ";

}

return 0;

}

Bình luận (0)
Tiên Nguyễn
Xem chi tiết
Bùi Anh Tuấn
29 tháng 12 2020 lúc 19:51

phần a

Bình luận (1)
Bùi Anh Tuấn
29 tháng 12 2020 lúc 19:52

phần b

Bình luận (0)
Pham Trong Bach
Xem chi tiết
Cao Minh Tâm
27 tháng 7 2017 lúc 14:17

Bình luận (0)