Viết chương trình thực hiện các yêu cầu sau :
a,Khai báo biến mảng DTB có số phần tử bằng sĩ số lớp em , các phần tử có kiểu dữ liệu số thực
b,Nhập dữ liệu cho mảng DTB từ bàn phím
c,Tính tổng giá trị các phần tử trong mảng
d,Thông báo kết quả ra màn hình
Giúp mình với , làm bằng pascal nhé!
'''python
a. DTB = []
siso = int(input("Nhập số lượng học sinh trong lớp: "))
b. for i in range(siso):
diem = float(input(f"Nhập điểm của học sinh thứ {i+1}: "))
DTB.append(diem)
c. tong=sum(DTB)
d. print(f"Tổng điểm của lớp là: {tong}")'''
Viet chuong trình khai báo một mảng các số nguyên không âm gồm 7 phân tử và thực hiện các công việc sau 1 Nhập giá tự cho các phần tử của mảng 2 in các phần tử của mảng lên màn hình 3 Tính tổng các phần tử của mảng 4 Tính trung bình các giá trị của mảng 5 Tìm giá trị Min của mảng 6 sắp xếp các phần tử của mảng theo chiều giảm dần.
program PSMCG;
uses crt;
const
size = 7;
var
arr: array[1..size] of integer;
i, sum, min, temp: integer;
avg: real;
begin
clrscr;
writeln('Nhap vao day so nguyen khong am gom 7 phan tu: ');
for i := 1 to size do
begin
readln(arr[i]);
end;
writeln('Cac phan tu trong day la: ');
for i := 1 to size do
begin
write(arr[i], ' ');
end;
writeln();
sum := 0;
for i := 1 to size do
begin
sum := sum + arr[i];
end;
writeln('Tong cac phan tu la: ', sum);
avg := sum / size;
writeln('Trung binh cac phan tu la: ', avg:0:2);
min := arr[1];
for i := 2 to size do
begin
if(arr[i] < min) then
begin
min := arr[i];
end;
end;
writeln('Gia tri nho nhat la: ', min);
for i := 1 to size - 1 do
begin
for j := i + 1 to size do
begin
if(arr[i] < arr[j]) then
begin
temp := arr[i];
arr[i] := arr[j];
arr[j] := temp;
end;
end;
end;
writeln('Cac phan tu da sap xep theo thu tu giam dan:');
for i := 1 to size do
begin
write(arr[i], ' ');
end;
readln;
end.
Viết chương trình thực hiện công việc nhập N (N<=50) phần tử có giá trị nguyên cho mảng A từ bàn phím. In ra màn hình tổng các phần tử trong mảng A
nhờ các hảo hán tin học giải giúp sư đệ
viết chương trình thực hiện công việc nhập N (N<=50) phần tử có giá trị nguyên cho mảng A từ bàn phím. In ra màn hình tổng các giá trij là số lẻ có trong mảng A
helpppppppp, ai giải được cho 400 chịu
program TongLe;
var
N, i, Tong: integer;
A: array[1..50] of integer;
begin
write('Nhap so phan tu cua mang N (N <= 50): ');
readln(N);
for i := 1 to N do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
Tong := 0;
for i := 1 to N do
begin
if(A[i] mod 2 <> 0) then
begin
Tong := Tong + A[i];
end;
end;
writeln('Tong cac so le trong mang A la: ', Tong);
readln;
end.
viết chương trình nhập vào 1 mảng 1 chiều gồm n phần tử ( với n được nhập vào từ bàn phím ) hãy thực hiện các công việc sau :
-nhập/xuất mảng
-đếm các số hoàn hảo có trong mảng
-tính tổng các phần tử chẵn trong mảng .
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i,dem,t,j,t1;
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;
for (i=1; i<=n; i++)
{
t=0;
for (j=1; j<=a[i]-1; j++)
if (a[i]%j==0) t+=j;
if (t==a[i]) dem++;
}
cout<<dem<<endl;
t1=0;
for (i=1; i<=n; i++)
if (a[i]%2==0) t1+=a[i];
cout<<t1;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i,dem,t,j,t1;
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;
for (i=1; i<=n; i++)
{
t=0;
for (j=1; j<=a[i]-1; j++)
if (a[i]%j==0) t+=j;
if (t==a[i]) dem++;
}
cout<<dem<<endl;
t1=0;
for (i=1; i<=n; i++)
if (a[i]%2==0) t1+=a[i];
cout<<t1;
return 0;
}
viết chương trình nhập vào 1 mảng 1 chiều gồm n phần tử ( với n được nhập vào từ bàn phím ) hãy thực hiện các công việc sau :
-nhập/xuất mảng
-đếm các số hoàn hảo có trong mảng
-tính tổng các phần tử chẵn trong mảng .
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i,dem,t,j,t1;
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;
for (i=1; i<=n; i++)
{
t=0;
for (j=1; j<=a[i]-1; j++)
if (a[i]%j==0) t+=j;
if (t==a[i]) dem++;
}
cout<<dem<<endl;
t1=0;
for (i=1; i<=n; i++)
if (a[i]%2==0) t1+=a[i];
cout<<t1;
return 0;
}
Đề bài: cho dãy số gồm n phần tử. Thực hiện các chương trình sau a) nhập từ bàn phím số phần tử và giá trị từng phần tử b) xuất mảng vừa nhập theo chiều ngang c) tìm giá trị lớn nhất, nhỏ nhất của mảng vừa nhập d) tính tổng các phần tử âm của dãy
program BaiTapMang;
var
n, i, max, min, s: longint;
a: array[1..100] of integer;
begin
// Nhập số phần tử của mảng
write('Nhap so phan tu cua mang: ');
readln(n);
// Nhập giá trị từng phần tử của mảng
for i := 1 to n do
begin
write('Nhap gia tri phan tu thu ', i, ': ');
readln(a[i]);
end;
// Xuất mảng theo chiều ngang
writeln('Mang vua nhap la:');
for i := 1 to n do
write(a[i], ' ');
// Tìm giá trị lớn nhất và nhỏ nhất của mảng
max := a[1];
min := a[1];
for i := 2 to n do
begin
if a[i] > max then
max := a[i];
if a[i] < min then
min := a[i];
end;
writeln;
writeln('Gia tri lon nhat cua mang la: ', max);
writeln('Gia tri nho nhat cua mang la: ', min);
// Tính tổng các phần tử âm của mảng
s:= 0;
for i := 1 to n do
begin
if a[i] < 0 then
s:= s + a[i];
end;
writeln('Tong cac phan tu am cua mang la: ', s);
readln;
end.
nhập 1 mảng số nguyên gồm n phần tử (5<n<15)
a)Xuất xác phần tử trong mảng ra màn hình.
b)tìm kiếm phần tử có giá trị k trong mảng (k được nhập từ bàn phím). Nếu có thì thông báo: Trong mảng có phần tử có giá trị K (nếu không thì ngược lại)
uses crt;
var i,n,k:integer;
a:array[1..100]of integer;
kt:boolean;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
writeln;
readln(k);
kt:=false;
for i:=1 to n do
if a[i]=k then kt:=true;
if (kt=true) then write('Co k trong mang')
else writeln('Khong co k trong mang');
readln;
end.
Viết chương trình nhập vào 1 mảng 1 chiều gồm n phần tử (với n được nhập vào từ bàn phím). Hãy thực hiện các công việc sau:
- Nhập các phần tử mảng từ bàn phím.
- Hiển thị mảng vừa nhập ra màn hình.
- In ra màn hình các số chính phương trong mảng.
- Đếm trong mảng có bao nhiêu phần tử có giá trị bằng 5. Nếu không có phần tử nào có giá trị bằng 5 thì in ra màn hình thông báo “Không có phần tử nào thỏa mãn điều kiện”
#include <bits/stdc++.h>
using namespace std;
long long n,i,a[10000];
int main()
{
cin>>n;
for (i=1; i<=n; i++)
cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
