Cho một dãy số A gồm N phần tử (n>=100)
Hãy phát sinh dãy A ngẫu nhiên N phần tử (10<=n<=N).Xuất dãy A ra màn hình
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.
Những câu hỏi liên quan
ML
1 tháng 8 2021
Program HOC24;
var n,a,i,d: integer;
x: array[1..32000] of integer;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(x[i]);
end;
write('Nhap A: '); readln(a);
d:=0;
for i:=1 to n do if x[i]=a then d:=1;
if d=1 then write(A,' xuat hien trong day') else write(A,' khong xuat hien trong day');
readln
end.
AP
1 tháng 8 2021
uses crt;
var n,i,a1:integer;
a:array[1..100] of integer;
begin
writeln('nhap n'); readln(n);
writeln('nhap a'); readln(a1);
for i:=1 to n do
begin
readln(a[i]);
if (a[i]=a1) then
begin
write(' so a co xuat hien trong day');
break;
end;
if (i<n) then continue;
writeln('Khong co so a trong day');
end;
readln;
end.
30 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
long long a[100],i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
swap(a[1],a[n]);
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
10 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
long long a[100],b[100],c[100],n,i,dem1,dem2;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
cin>>a[i];
dem1=0;
dem2=0;
for (i=1; i<=n; i++)
{
if (a[i]%2==0)
{
dem1++;
b[dem1]=a[i];
}
else
{
dem2=0;
c[dem2]=a[i];
}
}
sort(b+1,b+dem1+1);
sort(c+1,c+dem2+1);
for (i=1; i<=dem1; i++)
cout<<b[i]<<" ";
for (i=dem2; i>=1; i--)
cout<<c[i]<<" ";
return 0;
}
25 tháng 10 2021
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x==50) dem++;
}
cout<<dem;
return 0;
}
26 tháng 10 2021
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,dem;
int main()
{
cin>>n;
dem=0;
for (i=1;i<=n; i++)
{
cin>>x;
if (x==27) dem++;
}
cout<<dem;
return 0;
}
ML
27 tháng 10 2021
a)
Input: số nguyên dương n và dãy số A1,A2,...,An
Output: Số phần tử có giá trị bằng 27
b) Thuật toán liệt kê:
Bước 1: Nhập n và dãy A1,A2,..,An
Bước 2: Dem←0; i←1;
Bước 3: Nếu i>n thì in ra Dem và kết thúc
Bước 4: Nếu Ai = 27 thì Dem←Dem+1;
Bước 5: i←i+1, quay lại bước 3
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
randomize;
write('Nhap n='); readln(n);
for i:=1 to n do
a[i]:=random(100);
for i:=1 to n do
write(a[i]:4);
readln;
end.