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.
Program ct; USES CRT; Var n,i: Integer; A:array[1..10] of 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 Write(A[i]); Readln; End.
( Nếu đề chỉ yêu cầu là nhập 10 phần tử thì không cần khai báo n và thay n -> 10 trong câu lệnh for...do. Còn đề yêu cầu in n phần tử thì làm như trên).
3:
#include <bits/stdc++.h>
using namespace std;
int A[100],i,n,x,kt;
int main()
{
cin>>n;
for (int i=1; i<=n; i++) cin>>A[i];
cin>>x;
kt=0;
for (int i=1; i<=n; i++)
if (A[i]==x) then kt=1;
if (kt==0) cout<<"NO";
else
{
for (int i=n; i>=1; i--)
if (A[i]==x)
{
cout<<A[i];
return 0;
}
}
return 0;
}
4:
#include <bits/stdc++.h>
using namespace std;
int A[100],i,n;
int main()
{
cin>>n;
for (int i=1; i<=n; i++)
cin>>A[i];
sort(A+1,A+n+1);
for (int i=1; i<=n; i++)
cout<<A[i]<<" ";
return 0;
}
Câu 1:
uses crt;
var n,i,t1,t2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t1:=0;
t2:=0;
for i:=1 to n do
begin
t1:=t1+i;
if i mod 2=0 then t2:=t2+i;
end;
writeln('Tong cac so tu 1 den ',n,' la: ',t1);
writeln('Tong cac so chan tu 1 den ',n,' la: ',t2);
readln;
end.
Câu 2:
uses crt;
var a,b,i,bcnn:longint;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
bcnn:=a*b;
for i:=a*b-1 downto 1 do
if (i mod a=0) and (i mod b=0) then
begin
if bcnn>i then bcnn:=i;
end;
writeln(bcnn);
readln;
end.
Thuật toán: Với mỗi giá trị i, tính tổng S = 1 + 2 + 3 + ... + i. Sau đó lấy tổng tìm được chia cho số số hạng (tức bằng (i - 1) + 1 = i). Nếu kết quả bằng n thì in ra kết quả, ngược lại tiếp tục tăng i.
* Lưu ý: Dữ liệu đề bài đảm bảo chắc chắn sẽ tìm được kết quả là số nguyên. Nếu không sẽ bị lặp vô hạn lần.
Code tham khảo (C++):
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i,c[1000],k;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++)
c[a[i]]+=1;
k=0;
for (i=1; i<=n; i++) k=max(k,c[i]);
for (i=1; i<=n; i++) if (k==c[i]) cout<<i<<" "';
return 0;
}
pascal đi bạn