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.
uses crt;
var a:array[1..250]of integer;
i,n,min,vt: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];
for i:=1 to n do
if min=a[i] then vt:=i;
writeln('So nho nhat la: ',min,' va o vi tri thu ',vt);
readln;
end.
#include <iostream>
using namespace std;
int main()
{
int a[100][100],i,j,m,n;
cout<<"Nhap so dong cua mang:"; cin>>n;
cout<<"Nhap so cot cua mang:"; cin>>m;
for (i=1; i<=n; i++)
for (j=1; j<=m; j++)
{
cout<<"A["<<i<<","<<j<<"]="; cin>>a[i][j];
}
for (i=1; i<=n; i++)
{
for (j=1; j<=m; j++)
cout<<a[i][j]<<" ";
cout<<endl;
}
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,t,dem;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
dem=0;
t=0;
for (i=1; i<=n; i++)
if (a[i]>0)
{
dem++;
t=t+sqrt(a[i]);
}
cout<<t;
return 0;
}
6:
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,A[100],i,dem=0;
cin>>n;
for (int i=1; i<=n; i++) cin>>A[i];
for (int i=1;i<=n; i++)
if (A[i]%2!=0) dem++;
cout<<dem;
return 0;
}
5:
#include <bits/stdc++.h>
using namespace std;
int main()
{
long long n,nn=1e6,A[1000];
cin>>n;
for (int i=1; i<=n; i++) cin>>A[i];
for (int i=1; i<=n; i++)
nn=min(nn,A[i]);
for (int i=1; i<=n; i++)
if (nn==A[i]) cout<<i<<" ";
return 0;
}
Program HOC24;
var i.n: integer;
a: array[1..250] of integer;
begin
for i:=1 to n do
begin
write('Nhap diem toan cua ban thu ',i,': '); readln(a[i]);
end;
for i:=1 to n do write(a[i],' ');
readln
end.
n = int(input('Nhập n ( n < 150): '))
if n >= 150:
print('n phải nhỏ hơn 150')
else:
arr = [ ]
total = 0
# Nhập vào dãy số nguyên
for i in range(n):
arr.append(int(input('Nhập phần tử thứ ' + str(i+1) + ': ')))
# In dãy vừa nhập
print('Dãy vừa nhập là: ', end='')
for i in range(n):
print(arr[i], end=' ')
# Tính tổng các phần tử lẻ
for i in range(n):
if arr[i] % 2 != 0:
total += arr[i]
print('\nTổng các phần tử lẻ là:', total)
#include <bits/stdc++.h>
using namespace std;
long long a[100],n,i,t,t1,dem,dem1;
//chuongtrinhcon
bool ktnt(long long x)
{
if (x<=1) return(false);
for (int i=2; i*i<=x; i++)
if (x%i==0) return(false);
return true;
}
//chuongtrinhchinh
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=t+a[i];
cout<<t<<endl;
dem=0;
for (i=1; i<=n; i++) if (a[i]%3==0) dem++;
cout<<dem<<" ";
t1=0;
dem1=0;
for (i=1; i<=n; i++)
if (a[i]%2!=0)
{
t1+=a[i];
dem1++;
}
cout<<fixed<<setprecision(2)<<(t1*1.0)/(dem1*1.0)<<endl;
for (i=1; i<=n; i++)
if (ktnt(a[i])==true) cout<<a[i]<<" ";
return 0;
}
Bài 1:
Program hotrotinhoc;
var i,n: integer;
t: longint;
begin
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n do
begin
write(a[i],' ');
if a[i] mod 2=1 then t:=t+a[i];
end;
writeln;
write(t);
readln
end.
Bài 2:
Program hotrotinhoc;
var i,n,t: integer;
begin
write('n='); readln(n);
for i:=1 to n do
begin
write('Nhap diem Toan cua ban thu ',i,': '); readln(a[i]);
end;
for i:=1 to n do
begin
writeln('Diem toan cua ban thu ',i,' la :',a[i]);
if a[i] >=8 then t:=t+1;
end;
write('So hoc sinh co diem toan la 8 tro len la :', t);
readln
end.
Bài 3:
Program hotrotinhoc;
var i,n,k: integer;
a:array[1..32000] of string;
begin
write('Nhap k='); readln(k);
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
a[k]:='NO';
for i:=1 to n do
if a[i]<>'NO' then write(a[i],' ');
readln
end.
Bài 4:
Program hotrotinhoc;
var min,i,n,vt: integer;
a:array[1..32000] of integer;
begin
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
min:=32000;
for i:=1 to n do
if a[i]<min then
begin
min:=a[i];
vt:=i;
end;
write('So nho nhat trong day la so thu ',vt);
readln
end.
b3
Program Xoa_mang;
uses crt;
var m:array[1..100] of integer;
n,i,k:byte;
Begin
Write('So phan tu cua day: ');readln(n);
for i:=1 to n do
Begin
Write('M[',i,']=');Readln(M[i]);
End;
Write('Nhap vi tri cua phan tu can xoa: ');Readln(k);
For i:=k to n do m[i]:=m[i+1];
For i:=1 to n do Write(m[i],', ');
Readln
End.
b4
Program TIM_NHO_NHAT;
uses crt;
var n,i,nhonhat:integer;
m: array[1..100] of real;
min:real;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('M[',i,']='); readln(m[i]);
end;
min:=m[1];
nhonhat:=1;
for i:=2 to n do if m[i] < min then
begin
min:=m[i]; nhonhat:=i;
end;
writeln('phan tu nho nhat la phan tu thu',nhonhat);
readln
end.
quá đơn giản
bài 1:
uses crt;
var n,i,t:integer;
a:array[1..100]of integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do;
begin
write('a[',i,']='); readln(a[i]);
end;
{------------xuat-day--------------------}
for i:=1 to n do
write(a[i]:4);
{--------------xu-ly---------------------}
writeln;
t:=0;
for i:=1 to n do
if a[i] mod 2=1 then t:=t+a[i];
writeln('tong cac so le trong day la: ',t);
readln;
end.
bài 2:
uses crt;
var n,i,dem:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap so hoc sinh:'); readln(n);
for i:=1 to n do
begin
write('nhap diem toan cua hoc sinh thu ',i,':'); readln(a[i]);
end;
{------------xuat-day--------------------}
writeln('bang diem mon toan cua lop hoc la: ');
for i:=1 to n do
write(a[i]:4);
{--------------xu-ly---------------------}
writeln;
dem:=0;
for i:=1 to n do
if a[i]>8 then inc(dem);
writeln('so hoc sinh co diem toan lon hon 8 trong lop la: ',dem);
readln;
end.
bài 3:
uses crt;
var n,i,k,tam: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;
{------------xuat-day--------------------}
for i:=1 to n do
write(a[i]:4);
{--------------xu-ly---------------------}
writeln;
repeat
write('nhap vi tri thu k: '); readln(k);
if (k<=0) or (k>n) then writeln('ban da nhap sai, yeu cau ban nhap lai');
until (k>0) and (k<=n);
writeln('day so sau khi da xoa so o vi tri thu ',k,' la: ');
a[k]:=tam;
for i:=1 to n do
if a[i]<>tam then write(a[i]:4);
readln;
end.
bài 4:
uses crt;
var n,i,vt,nn: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;
{------------xuat-day--------------------}
for i:=1 to n do
write(a[i]:4);
{--------------xu-ly---------------------}
vt:=1;
writeln;
nn:=a[1];
for i:=1 to n do
if nn>a[i] then
begin
nn:=a[i];
vt:=i;
end;
writeln('vi tri cua so nho nhat trong day la: ',vt);
readln;
end.
*Bài 3 của bạn làm thế sẽ có trường hợp được biệt.
Nếu trong dãy a[i] có 2 số giống nhau thì bạn xóa luôn đi cả 2 số
cũng có thể
bài 1 sao nó lại báo lỗi chỗ a vậy ? giải thích hộ mình với ạ
Nguyễn Minh Đức : Bạn ấn nhầm gì đúng không mình đâu thấy lỗi gì?
để mình bấm lại ạ