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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
26 tháng 3 2021
uses crt;
var a,b,vt:array[1..100]of integer;
n,i,dem,j,kt,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
b[1]:=a[1];
dem:=1;
for i:=1 to n do
begin
kt:=0;
for j:=1 to dem do
if b[j]=a[i] then kt:=1;
if kt=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
end;
for i:=1 to dem do
if b[i] mod 2<>0 then
begin
max:=0;
for j:=1 to n do
if b[i]=a[j] then
begin
if max<j then max:=j;
end;
writeln(b[i],' xuat hien o vi tri thu ',max);
end;
readln;
end.
3 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
const long long maxint=1e6;
long long a[maxint],i,n,ln;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
cin>>a[i];
ln=a[1];
for (i=1; i<=n; i++)
ln=max(ln,a[i]);
for (i=n; i>=1; i--)
if (ln==a[i])
{
cout<<i;
break;
}
return 0;
}
H
4 tháng 4 2021
#include<bits/stdc++.h>
using namespace std;
int a[1000000],n,b[1000000];
int main(){
cin >>n;
for (int i=1;i<=n;i++) {cin >> a[i];
if (a[i]%2==1) b[a[i]]=i;
}
for (int i=1;i<=n;i++){
if (b[a[i]]!=0) {cout << b[a[i]] << " "<<a[i]<<'\n';b[a[i]]=0;}
}
}
Nhập trực tiếp , in dạng :
Chỉ số _ số
......
7 tháng 5 2021
Khi nãy gửi nhầm 2 cái nha
program Baitap1;
uses crt;
var Min ,n, i:integer;
A: array [1..1000] of integer;
begin
clrscr;
write('Nhap N ');readln(n);
for i:=1 to n do begin
write('A[',i,']=');readln(A[i]);
end;
Min:=A[1];
for i:=1 to n do if Min>A[i] then Min:=A[i];
write('So Nho Nhat Trong Mang La ',Min);
readln;
end.
14 tháng 2 2022
#include <bits/stdc++.h>
using namespace std;
long long a[40],i,n,ln;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
{
cin>>a[i];
}
ln=a[1];
for (i=1; i<=n; i++) ln=max(ln,a[i]);
for (i=n; i>=1; i--)
if (ln==a[i])
{
cout<<i;
break;
}
return 0;
}
15 tháng 3 2022
#include <bits/stdc++.h>
using namespace std;
double a[100],t1,t2,k;
int i,n,dem;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
cin>>k;
dem=0;
for (i=1; i<=n; i++) if (a[i]==k) dem++;
t1=0;
t2=0;
for (i=1; i<=n; i++)
{
if (a[i]>0) t1+=a[i];
else t2+=a[i];
}
cout<<dem<<endll;
cout<<t1<<" "<<t2;
return 0;
}
uses crt;
var a:array[1..30]of integer;
i,min:integer;
begin
clrscr;
for i:=1 to 30 do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to 30 do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.