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
LC
Bạn nào biết làm bài này ko làm giúp mình với mình đang cần bài này ạ! Xin cảm ơn
0
5 tháng 5 2021
Câu 4:
fucntion tong(x:integer):integer;
var st:string;
d,i,n,y,t:integer;
begin
str(x,st);
d:=length(st);
t:=0;
for i:=1 to d do
begin
val(st[i],n,y);
t:=t+n;
end;
tong:=t;
end;
5 tháng 5 2021
Câu 2:
const fi='bai2.inp';
fo='bai2.out';
var f1,f2:text;
a:array[1..100]of integer;
n,i,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(f2,t);
close(f1);
close(f2);
end.
NT
0
HP
5 tháng 3 2023
#include <iostream>
using namespace std;
int main()
{
int N, sum = 0, num;
float average;
cout << "Nhap so phan tu cua day: ";
cin >> N;
// Vòng lặp để nhập dữ liệu cho các phần tử trong dãy
for (int i = 0; i < N; i++) {
cout << "Nhap phan tu thu " << i+1 << ": ";
cin >> num;
sum += num; // tính tổng của dãy
}
// tính trung bình cộng của dãy
average = (float) sum / N;
cout << "Trung binh cong cua day la: " << average;
return 0;
}
HT
Mọi người giúp mình bài này với ạ :
Viết chương trình pascal nhập mảng và tìm số nhỏ thứ k trong mảng
2
28 tháng 2 2023
uses crt;
var a:array[1..100]of integer;
i,n,t,j,tam:integer;
begin
clrscr;
readln(n,k);
for i:=1 to n do readln(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then begin tam:=a[i]; a[i]:=a[j]; a[j]:=tam; end;
write(a[k]);
readln;
end.
28 tháng 2 2023
program sonho;
var
arr:array[1..100] of integer;
k, n, i, min: integer;
begin
write('Nhap n: ');
readln(n);
write('Nhap cac phan tu cua day: ');
for i := 1 to n do
begin
readln(arr[i]);
end;
write('Nhap k: ');
readln(k);
min := arr[1];
for i := 2 to k do
begin
if (arr[i] < min) then
min := arr[i];
end;
writeln('So nho thu ', k, ' trong day la: ', min);
end.
27 tháng 2 2023
var A:
array[1..n] of integer;
i, j, n: integer;
begin
write('Nhap so phan tu cua mang: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
for i := 1 to n - 1 do
for j := i+1 to n do
if (A[i] mod 2 = 0) and (A[j] mod 2 = 0) and (A[i] < A[j]) or (A[i] mod 2 = 1) and (A[j] mod 2 = 1) and (A[i] > A[j]) then
begin
swap(A[i], A[j]);
end;
writeln('Mang da sap xep la: ');
for i := 1 to n do
writeln(A[i]);
end.
#include <iostream>
#include <time.h>
using namespace std;
int main()
{
int van,d,i,r,so;
cout<<"Nhap so van:";
cin>>van;
d=0;
for (i=1;i<=van;i++)
{
cout<<"Van thu "<<i<<endl;
srand((int)time(0));
r=rand() % (10+1-8);
cout<<"Ban hay doan so:";
cin>>so;
cout<<"So cua may la "<<r<<endl;
if (so==r)
{
cout<<"Ban da doan dung"<<endl;
d=d+1;
}
else cout<<"Ban da doan sai"<<endl;
}
cout<<"So van dung la "<<d;
}
cái này bạn dùng C++ hả