Viết chương trình thực hiện các yêu cầu sau:
a) Nhập mảng A có n phần tử
b) In mảng A đã nhập ra màn hình
c) Tìm giá trị lớn nhất của mảng A
d) Tìm giá trị nhỏ nhất của mảng A
Uses crt;
var i,n,min,max: longint;
a: array[1..100] of longint;
begin clrscr;
readln(n);
for i:=1 to n do read(a[i]); readln;
writeln(a[i]:3)
max:=a[1];
for i:=1 to n do begin
if(max<a[i]) then max:=a[i];
end;
writeln(max);
min:=a[1];
for i:=1 to n do begin
if(min>a[i]) then min:=a[i];
end;
writeln(min);
readln;
end.
1. Viết chương trình nhập vào mảng gồm n số nguyên, - Đếm và đưa ra số phần tử chẵn của mảng - đưa ra số chẵn lớn nhất trong mảng - Tính tổng các số ở vị trí lẻ trong mảng - Tìm giá trị phần tử lẻ nhỏ nhất
uses crt;
var a:array[1..100]of integer;
i,n,dem,max,t,min,dem1:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
max:=-32000;
for i:=1 to n do
begin
if a[i] mod 2=0 then
begin
dem:=dem+1;
if max<a[i] then max:=a[i];
end;
if dem=0 then writeln('Trong day khong co so chan')
else begin
writeln('So so chan la: ',dem);
writeln('So chan lon nhat la: ',max);
end;
t:=0;
for i:=1 to n do
if i mod 2=1 then t:=t+a[i];
writeln('Tong cac so o vi tri le la: ',t);
min:=maxint;
dem1:=0;
for i:=1 to n do
if a[i] mod 2<>0 then
begin
inc(dem1);
if min>a[i] then min:=a[i];
end;
if dem1=0 then writeln('Trong day khong co so le')
else writeln('So le nho nhat la: ',min);
readln;
end.
Viết chương trình thực hiện các yêu cầu sau:
1) Nhập một mảng A có N phần tử;
2) In mảng A đã nhập ra màn hình;
3) Tìm giá trị lớn nhất (nhỏ nhất) của mảng A;
4) Tính tổng mảng A.
program PSMCG;
uses crt;
const N = 5;
type MangA = array[1..N] of integer;
var A: MangA;
i, max, min, sum: integer;
begin
for i := 1 to N do
begin
write('Nhap phan tu A[', i, ']: ');
readln(A[i]);
end;
writeln('Mang A: ');
for i := 1 to N do
begin
write(A[i], ' ');
end;
writeln;
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('Gia tri lon nhat la: ', max);
writeln('Gia tri nho nhat la: ', min);
sum := 0;
for i := 1 to N do
begin
sum := sum + A[i];
end;
writeln('Tong gia tri trong mang A la: ', sum);
readln;
end.
Nhập mảng một chiều gồm m số nguyên ( 0<m<50). Viết chương trình
thực hiện các công việc sau:
a. Nhập mảng từ bàn phím.
b. Hiển thị mảng ra màn hình.
c. Tổng các phần tử
d. Tìm và in số nhỏ nhất cùng số lần xuất hiện của nó trong dãy
huhu mng giúp mình với ạ, dùng #include<stdio.h> mng nhé huhu gấp lắm ạ ngày kia thi rùi
uses crt;
var a:array[1..50]of integer;
m,n,t,min,vt:integer;
begin
clrscr;
write('Nhap m='); readln(m);
for i:=1 to m do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to m do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to m do
t:=t+a[i];
writeln('Tong cac phan tu la: ',t);
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
vt:=0;
for i:=1 to n do
if min=a[i] then inc(vt);
writeln('So nho nhat la: ',min);
writeln('So lan xuat hien la: ',vt);
readln;
end.
Viết chương trình thực hiện các yêu cầu: (1điểm)
- Nhập vào một mảng A có n phần tử là số nguyên.(n <= 50)
- In ra màn hình tổng các số lớn hơn 0 trong mảng.
Đây là một chương trình Python để nhập vào một mảng A có n phần tử và tính tổng các số lớn hơn 0 trong mảng đó:
```python
n = int(input("Nhập số phần tử của mảng: "))
A = []
sum = 0
Nhập các phần tử của mảng
for i in range(n):
A.append(int(input("Nhập phần tử thứ %d: " % (i+1))))
Tính tổng các số lớn hơn 0 trong mảng
for i in range(n):
if A[i] > 0:
sum += A[i]
In ra tổng các số lớn hơn 0 trong mảng
print("Tổng các số lớn hơn 0 trong mảng là:", sum)
```
Giải thích:
Dòng 1: Yêu cầu người dùng nhập số phần tử của mảng.Dòng 2: Khai báo một mảng A rỗng và một biến sum để tính tổng các số lớn hơn 0.Dòng 5-7: Sử dụng vòng lặp for để nhập các phần tử của mảng A từ bàn phím.Dòng 10-13: Sử dụng vòng lặp for để duyệt qua từng phần tử của mảng A. Nếu phần tử đó lớn hơn 0, thì cộng giá trị của nó vào biến sum.Dòng 16: In ra tổng các số lớn hơn 0 trong mảng.
giúp em với ạ em đang thi hết môn cần gấp
Viết chương trình thực hiện các công việc sau:
a) Nhập một mảng 10 phần tử và hiển thị mảng vừa nhập ra màn hình.
b) Tìm phần tử nhỏ nhất trong mảng.
c) Đếm xem có bao nhiêu số lẻ và tính trung bình cộng các số lẻ trong mảng.
d) Sắp xếp mảng theo thứ tự tăng dần
Câu 4: (2 điểm)
Viết chương trình thực hiện các công việc sau:
a) Nhập vào từ bàn phím một xâu ký tự ST. Hiển thị xâu st ra màn hình.
b) Nhập ký tự x từ bàn phím, đếm trong xâu st có bao nhiêu ký tự x?
c++
Câu 4:
#include <bits/stdc++.h>
using namespace std;
string st;
int d,i,dem;
char x;
int main()
{
getline(cin,st);
d=st.length();
cout<<st<<endl;
cin>>x;
dem=0;
for (i=0; i<=d-1; i++) if (st[i]==x) dem++;
cout<<dem;
return 0;
}
Câu 4:
#include <bits/stdc++.h>
using namespace std;
string st;
int d,i,dem;
char x;
int main()
{
getline(cin,st);
d=st.length();
cout<<st<<endl;
cin>>x;
dem=0;
for (i=0; i<=d-1; i++) if (st[i]==x) dem++;
cout<<dem;
return 0;
}
Cho mảng B gồm n (n ≤ 100) phần tủ nguyên. Viết chương trình thực hiện các yêu cầu sau:
a. Đếm xem trong mảng có bao nhiêu phần tử âm, phần tử dương.
b. Tính trung cộng các phần tử khác 0 trong mảng.
c. Đưa ra màn hình giá trị nhỏ nhất cùng với chỉ số.
uses crt;
var b,a:array[1..100]of integer;
i,n,dem,dem1,dem2,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('B[',i,']='); readln(b[i]);
end;
dem:=0;
dem1:=0;
for i:=1 to n do
begin
if b[i]<0 then inc(dem);
if b[i]>0 then inc(dem1);
end;
writeln('So phan tu am la: ',dem);
writeln('So phan tu duong la: ',dem1);
t:=0;
for i:=1 to n do
if b[i]<>0 then t:=t+b[i];
writeln('Trung binh cac phan tu khac 0 trong mang la: ',t/(dem+dem1):4:2);
min:=b[1];
for i:=1 to n do
if min>b[i] then min:=b[i];
dem2:=0;
for i:=1 to n do
if min=b[i] then
begin
inc(dem2);
a[dem2]:=i;
end;
writeln('Gia tri nho nhat la: ',min);
writeln('Chi so la: ');
for i:=1 to dem2 do
write(a[i]:4);
readln;
end.
viết chương trình nhập vào mảng một chiều.gồm phần tử số nguyên N được nhập từ bàn phím. N nguyên, dương, N<=10
A, in mảng vừa nhập ra màn hình
B, tính tổng các phần tử của mảng, in kết qua ra màn hình
C, đếm số lượng các phần tử có giá trị dương
D, tính trung bình cộng các số có giá trị chẵn
E, in ra màn hình các phần tử là số hoàn hảo
Giúp mình với ạ
uses crt;
var a:array[1..10]of longint;
n,i,t,dem,dem1,dem2,t1:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(t);
t1:=0;
dem1:=0;
dem2:=0;
for i:=1 to n do
begin
if a[i]>0 then dem1:=dem+1;
if a[i] mod 2=0 then
begin
dem2:=dem2+1;
t1:=t1+a[i];
end;
end;
writeln(dem1);
writeln(t1/dem2:4:2);
readln;
end.
viết chương trình nhập vào mảng một chiều.gồm phần tử số nguyên N được nhập từ bàn phím. N nguyên, dương, N<=10
A, in mảng vừa nhập ra màn hình
B, tính tổng các phần tử của mảng, in kết qua ra màn hình
C, đếm số lượng các phần tử có giá trị dương
D, tính trung bình cộng các số có giá trị chẵn
E, in ra màn hình các phần tử là số hoàn hảo
uses crt;
var a:array[1..10]of longint;
n,i,t,dem,dem1,dem2,t1:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(t);
t1:=0;
dem1:=0;
dem2:=0;
for i:=1 to n do
begin
if a[i]>0 then dem1:=dem+1;
if a[i] mod 2=0 then
begin
dem2:=dem2+1;
t1:=t1+a[i];
end;
end;
writeln(dem1);
writeln(t1/dem2:4:2);
readln;
end.
