- 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 số lớn nhất và nhỏ nhất trong mảng.
1:Viết chương trình Pascal nhập vào mảng a gồm n phần tử nguyên (n<100). Sau đó in ra màn hình mảng vừa nhập, tính giá trị của các phần tử có giá trị là số chẵn, in tổng đó.
2:Viết chương trình Pascal nhập vào mảng a gồm n phần tử nguyên (n<100). Sau đó in ra màn hình mảng vừa nhập, tính giá trị của các phần tử có giá trị là số lẻ, in tổng đó.
giúp mik 2 câu này với ạ
Bài 1
Var a:array:[1..99] of integer;
i,n:integer;
s:longint;
Begin
Repeat
Write('n = ');readln(n);
Until (n > 0) and (n < 100);
For i:=1 to n do
Begin
Write('Nhap diem thu ',i,' = ');readln(a[i]);
if a[i] mod 2 = 0 then s:=s+a[i];
End;
Write('Cac so vua nhap la: ');
For i:=1 to n do
Write(a[i]:8);
writeln;
write('Tong cac so chan la ',s);
Readln
End.
Bài 2
Var a:array:[1..99] of integer;
i,n:integer;
s:longint;
Begin
Repeat
Write('n = ');readln(n);
Until (n > 0) and (n < 100);
For i:=1 to n do
Begin
Write('Nhap diem thu ',i,' = ');readln(a[i]);
if a[i] mod 2 <> 0 then s:=s+a[i];
End;
Write('Cac so vua nhap la: ');
For i:=1 to n do
Write(a[i]:8);
writeln;
write('Tong cac so le la ',s);
Readln
End.
C1 Viết Chương trình nhập vào một mảng số thực gồm n phần tử tính tổng các phần tử chẵn ( n được nhập tử bàn phím )
C2 Viết chương trình nhập vào một mảng số nguyên gồm n phần tử tính tích các phần tử có trong dãy số đó
Câu 1:
uses crt;
var a:array[1..100]of real;
i,n:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t:4:2);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=1;
for i:=1 to n do
t:=t*a[i];
writeln(t:4:2);
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).Cho biết trong mảng có bao nhiêu phần tử là số nguyên tố?
uses crt;
var a:array[1..100]of integer;
i,n,kt,dem,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to trunc(sqrt(a[i])) do
if a[i] mod j=0 then
begin
kt:=1;
break;
end;
if kt=0 then inc(dem);
end;
writeln('So phan tu la so nguyen to la: ',dem);
readln;
end.
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.
Viết chương trình nhập vào một số nguyên gồm n phần tử. Tính tổng của các phần tử của các dãy số đó.
Viết chương trình nhập vào một mảng số nguyên gồm n phần tử . Nhập vào một số nguyên x bất kì
a) Kiểm tra x có trong dãy hay ko hiển thị vị trí của x
b) Đếm xem x xuất hiện bao nhiêu lần
Mọi người giúp vs , cần gấp lắm
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,x,dem,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap x='); readln(x);
kt:=0;
dem:=0;
for i:=1 to n do
if a[i]=x then
begin
kt:=1;
write(i:4);
inc(dem);
end;
if kt=0 then writeln('Khong co ',x,' trong day');
writeln(x,' xuat hien ',dem,' lan trong day');
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.
Viết chương trình nhập vào mảng A gồm N số nguyên (N<=100). Nhập vào một số nguyên k từ bàn phím. Xuất ra màn hình những phần tử của mảng là bội số của k.
giúp e với a
uses crt;
var a:array[1..100]of integer;
i,n,k:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
for i:=1 to n do
if a[i] mod k=0 then write(a[i]:4);
readln;
end.
Cho mảng A có N phần tử (N được nhập vào từ bàn phím, các phần tử của mảng là các số nguyên). Hãy viết chương trình Pascal thực hiện các yêu cầu sau: a. Nhập các phần tử cho mảng A? b. In lên màn hình các phần tử của mảng A? c. Tính tổng các phần tử chẵn của mảng A và thông báo kết quả ra màn hình?
program Tinh_Tong_Phan_Tu_Chan;
var
A: array of Integer;
N, i, sum: Integer;
begin
Write('Nhap N: ');
Readln(N);
SetLength(A, N);
// Nhập các phần tử cho mảng A
for i := 0 to N - 1 do
begin
Write('Nhap phan tu thu ', i + 1, ': ');
Readln(A[i]);
end;
// In lên màn hình các phần tử của mảng A
Write('Cac phan tu cua mang la: ');
for i := 0 to N - 1 do
begin
Write(A[i], ' ');
end;
Writeln;
// Tính tổng các phần tử chẵn của mảng A và thông báo kết quả ra màn hình
sum := 0;
for i := 0 to N - 1 do
begin
if A[i] mod 2 = 0 then
sum := sum + A[i];
end;
Writeln('Tong cac phan tu chan cua mang la: ', sum);
Readln;
end.