Đề 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.
Viết chương trình nhập vào mảng một chiều à gồm n phân tử là số nguyên (1<N<=100). Cho biết trong mảng có bao nhiêu phần tử có giá trị nhỏ nhất?
uses crt;
var a:array[1..100]of integer;
i,n,min,dem: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];
dem:=0;
for i:=1 to n do
if min=a[i] then inc(dem);
writeln('So phan tu co gia tri nho nhat la: ',dem);
readln;
end.
1.Viết chương trình nhập vào mảng 1 chiều gồm N số thực rồi thực hiện các công việc sau:
a) Tìm số dương đầu tiên và chỉ số của nó trong mảng;
b) Tìm số âm đầu tiên và chỉ số của nó trong mảng;
2.Viết chương trình nhập vào mảng 1 chiều gồm N số thực rồi thực hiện các công việc sau:
a) Tìm giá trị lớn nhất và in ra chỉ số của nó;
b) Tìm giá trị nhỏ nhất và in ra chỉ số của nó;
c) Tìm giá trị nhỏ nhất mà chia hết cho 3;
d) Tìm giá trị lớn nhất là số chẵn.
3.Viết chương trình nhập vào mảng 1 chiều gồm N số nguyên; tìm giá trị lớn nhất, nhỏ nhất và thứ tự xuất hiện của chúng (chỉ số) trong mảng.
4.Viết chương trình nhập vào mảng 1 chiều gồm N số nguyên; nhập từ bàn phím số nguyên k, kiểm tra xem số nguyên k có tồn tại trong mảng hay không? nếu có thì hãy cho biết số lần xuất hiện.
Bài 1:
Program hotrotinhoc_hoc24;
var i,n,sd,sa,vtd,vta: integer;
a: array[1..32000] of real;
begin
write('Nhap so phan tu : '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i]>0 then
begin
sd:=a[i];
vtd:=i;
break;
end;
writeln('So duong dau tien la :',sd);
writeln('Chi so cua so duong dau tien la :',vtd);
for i:=1 to n do
if a[i]>0 then
begin
sa:=a[i];
vta:=i;
break;
end;
writeln('So am dau tien la :',sa);
writeln('Chi so cua so am dau tien la :',vta);
readln
end.
Bài 2:
Program hotrotinhoc_hoc24;
var i,n,max,min,max1,min1: integer;
a: array[1..32000] of real;
begin
write('Nhap so phan tu : '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=0; max1:=0; min:=32000; min1:=32000;
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
if (a[i]<min1) and (a[i] mod 3=0) then min1:=a[i];
if (a[i]>max1) and (a[i] mod 2=0) then max1:=a[i];
end;
writeln('Gia tri lon nhat la : ',max);
write('Chi so cua gia tri lon nhat la :');
for i:=1 to n do if a[i]=max then write(i,' ');
writeln;
writeln('Gia tri nho nhat la : ',min);
write('Chi so cua gia tri nho nhat la :');
for i:=1 to n do if a[i]=min then write(i,' ');
writeln;
writeln('Gia tri nho nhat chia het cho 3 la : ',min1);
write('Gia tri lon nhat la so chan la :',max1);
readln
end.
Bài 3:
Program hotrotinhoc_hoc24;
var i,n,max,min: integer;
a: array[1..32000] of integer;
begin
write('Nhap so phan tu : '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=0; min:=32000;
for i:=1 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);
write('Thu tu xuat hien cua gia tri lon nhat la :');
for i:=1 to n do if a[i]=max then write(i,' ');
writeln;
writeln('Gia tri nho nhat la : ',min);
write('Thu tu xuat hien cua gia tri nho nhat la :');
for i:=1 to n do if a[i]=min then write(i,' ');
readln
end.
Viết chương trình nhập vào 1 mảng số thực gồm n phẩn tử (1<n<=50). Tìm phần tử lớn nhất, nhỏ nhất và in ra giá trị của nó trên màn hình
Tính giá trung bình của các phần tử có trong mảng
giúp vs
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.
Câu 1: Viết chương trình nhập n phần tử mảng 1 chiều là các số nguyên từ bàn phím, ghi mảng vừa nhập vào tệp MANG1CHIEU.TXT. Tìm giá trị nhỏ nhất trong mảng và đưa kết quả ra màn hình
Câu 2: Viết chương trình nhập 1 xâu bất kỳ từ bàn phím, In ra xâu sau khi đã loại bỏ các kí tự là chữ cái và ghi vào tệp CHUSO.TXT
giúp em với ạ . em cảm ơn nhiều...
cau 1:
uses crt;
var a:array[1..100] of integer;
n,i,min: integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
min:=a[1];
for i:=2 to n do
if min>a[i] then min=a[i];
writeln(a[i]);
readln;
end.
cau 2:
uses crt;
g:text;
s:string;
const fo='CHUSO.TXT'
begin
assign(g,fo);
rewrite(g);
readln(s);
for i:=1 to length(s) do
if not((s[i] in ['a'..'z'])and(s[i] in ['A'..'Z])) then delete(s,i,1);
writeln(g,s);
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.
viet chuong trình nhập vào mảng 1 chiều a gồm n phần tử là số nguyên dương (1<n<=100).Tính tổng các phần tử có giá trị lớn nhất trong mảng?
uses crt;
var a:array[1..100]of integer;
i,n,t,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
t:=0;
for i:=1 to n do
if max=a[i] then t:=t+a[i];
writeln('Tong cac phan tu co gia tri lon nhat la: ',t);
readln;
end.
Viết chương trình thực hiện các yêu cầu sau:
a- Nhận mảng n số nguyên, xuất mảng vừa nhập ra màn hình
b-Tìm số lớn nhất trong mảng một chiều trên
c-Tìm vị trí các số nhỏ nhất trong mảng một chiều
d-Đếm các số chính phương có trong mảng một chiều
e-hiển thị các số nguyên tố có trong mảng một chiều
f-sắp xếp mảng một chiều
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}