Kiểm tra mảng có đối xứng hay ko? Kiểm tra mảng có tăng dần hay ko???
Tin học 7. PASCAL. Mảng
giúp mình với các bạn ơi!!!!!!!
Thank you very much!!!!
Giúp mình với: Nhập mảng, kiểm tra xem mảng đó có phải mảng ziczac hay không?
Nhập mảng, kiểm tra xem mảng đó có phải mảng lõm hay không?
MN GIÚP MÌNH VỚI.
Viết chương trình nhập một mảng gồm n số nguyên (n<= 100). Hãy đưa ra các thông tin sau:a. Tổng số lẻ trong mảng và in ra các số lẻ đó.b. kiểm tra xem tổng đó có phải là số nguyên tố hay không?
uses crt;
var i,n,s: integer;
a:array[1..100] of integer;
begin
writeln('Nhap n: '); read(n);
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
writeln('Cac so le: ')
s:=0;
for i:=1 to n do
if a[i] mod 2 <> 0 then
begin
s:=s+a[i];
write(a[i],' ');
end;
writeln('- Tong so le: ',s);
for i:=1 to trunc(sqrt(s)) do if s mod i = 0 then d:=d+1;
if d > 1 then writeln('Tong do khong la so nguyen to') else writeln('Tong do la so nguyen to');
readln
end.
a) Viết chương trình nhập điểm kiểm tra học kỳ môn tin cho N học sinh và in ra màn hình.Với N và điểm kiểm tra được nhập từ bàn phím (sử dụng biến mảng)
b) Viết chương trình nhập vào một mảng có n(n<50) phần tử và tính tổng các phần tử trong mảng đó?
a:
#include <bits/stdc++.h>
using namespace std;
double a[1000];
int n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
b:
#include <bits/stdc++.h>
using namespace std;
long long a[50],n,i,t;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
t=0;
for (i=1; i<=n; i++) t+=a[i];
cout<<t;
return 0;
}
1.Viết chương trình tìm giá trị lớn nhất của một mảng chứa các số Z gồm N phần tử.
2.Viết chương trình nhập vào một mảng gồm N số nguyên. Sắp xếp lại mảng theo thứ tự tăng dần và in ra kết quả màn hình.
3.Viết chương trình nhập vào một mảng A gồm N số nguyên và nhập thêm vào một số nguyên X. Hãy kiểm tra xem phần tử X có trong mảng A hay không ?
1.
Program Tim_Max;
Var A:Array[1..255] of Integer;
i, n, Max: Integer;
Begin
Write('Nhap n: '); Readln(n);
For i := 1 to n do
Begin
Write('Nhap phan tu A[',i,'] = '); Readln(A[i]);
End;
Max := A[1];
For i := 2 to n do if A[i]>Max then Max := A[i];
Write('Phan tu lon nhat la :',Max);
Readln
End.
2.
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,j,Tam:Integer;
Begin
{Nhập mảng}
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
{Sắp xếp}
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;
{In kết quả ra màn hình}
Writeln('Ket qua sau khi sap xep:');
For i:=1 To N Do Write(A[i]:5);
Readln;
End.
3.
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,x:Integer;
Function TimKiem(x, N: Integer; A:Mang):Integer;
Var i:Integer;
Begin
I:=1;
While (I <= N) and (X<>A[I]) do I:=I+1; {{{{tại sao lại phải làm như bước này, tại sao lại lấy i đi so sánh với N}}}}
If I <= N Then Timkiem:=I Else Timkiem:=0;
End;
Begin
{Nhập mảng}
Write(‘Nhap N=’); Readln(N);
For i:=1 To N Do
Begin
Write(‘A[‘,i,’]=’); Readln(A[i]);
End;
Write(‘Nhap X=’); Readln(x);
{Kết quả tìm kiếm}
If TimKiem(X,N,A)<>0 Then
Writeln(‘Vi tri cua X trong mang la:’, TimKiem(X,N,A))
Else Writeln(‘X khong co trong mang.’);
Readln;
End.
câu 1 tham khảo cái này nhé
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,Max:Integer;
Begin
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
Max:=A[1];
For i:=2 To N Do
If Max<A[i] Then Max:=A[i];
Writeln('Phan tu lon nhat cua mang:', Max);
Readln;
End.
Xin giải đáp:
Nhập tự động 100 kí tự từ mảng rồi nhập vào tệp"bai4.inp" sau đó nhập ra mảng 1 chiều và kiểm tra có phải cấp số cộng hau không?
Thank you!
Viết chương trình nhập điểm kiểm tra học kì môn tin cho N học sinh và in ra màn hình. Với N và điểm kiểm tra được nhập từ bàn phím.( sử dụng biến mảng)
uses crt;
var a:array[1..100]of real;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
writeln('Diem cua ban thu ',i,' la: ',a[i]:4:2);
readln;
end.
Hãy mô tả thuật toán và Viết chương trình nhập điểm kiểm tra học kỳ môn Tin học cho N học sinh và in ra màn hình học sinh có điểm Tin học cao nhất. Với N và điểm kiểm tra của từng học sinh được nhập từ bàn phím (sử dụng biến mảng).
Đây là code Pascal để nhập và in điểm kiểm tra học kì môn tin cho N của từng học sinh:
program DiemKT;
var
N, i: integer;
diem: array1..100 of integer;
begin
write('Nhap so hoc sinh: ');
readln(N);
for i := 1 to N do
begin
write('Nhap diem kiem tra hoc ki cua hoc sinh thu ', i, ': ');
readln(diemi);
end;
writeln('Diem kiem tra hoc ki cua ', N, ' hoc sinh la:');
for i := 1 to N do
writeln('Hoc sinh thu ', i, ': ', diemi);
end.
Viết chương trình pascal nhập vào N phần tử của mảng
a) Nhập gía trị của N phần tử
b) Kiểm tra xem trong mảng có số nguyên tố hay không? Nếu có hãy in số nguyên tố ra
Mong mọi người giúp. Thanks guys so much :33
Lời giải :
program hotrotinhoc l
var a : array[1..32000] of integer ;
N,i : integer ;
function NT(n:longint) : boolean ;
var i: longint ;
kt : boolean ;
begnin
kt:= true;
for i:= 2 to round(sqrt(n)) do
if n mod i=0 then kt:= false ;
NT:=kt ;
end;
begin
write('Nhap do dai cua mang'); readln(n);
writeln('Nhap gia tri cua cac phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:= 1 to n do
begin
if (a[i]>2) and NT(a[i]) then write('trong mang co so nguyen to') else write('trong mang khong co so nguyen to');
if (a[i]>2) and NT(a[i]) then write('Cac so nguyen to trong mang la:',A[i]:5);
end;
readln
end.