viết chương trình nhập vào 1 ma trận vuông k hàng, k cột. Sau đó sắp xếp lại sau cho phần tử có trị tuyệt đối lớn nhất trong mỗi hàng sẽ nằm trên đường chéo chính.
PASCAL
Viết chương trình nhập vào ma trận vuông kiểu số nguyên cấp N, với N không quá 20; in ra ma trận vừa nhập;cho biết giá trị của phần từ lớn nhất trong ma trận; đếm số phần tử là bội số của K, với K nhập từ bàn phím, tính tích các phần tử dương nằm trên đường chéo chính, cho biết hàng nào có tổng các phần tử là nhỏ nhất
Cho ma trận vuông A gồm n dòng và n cột (0 < n ≤ 100), mỗi phần tử là một số nguyên.
a. Tìm tổng các phần tử nằm trên các đường biên của mảng.
b. Kiểm tra xem A có phải là ma trận đối xứng hay không.
c. Tìm giá trị của phần tử lớn nhất trong tam giác trên (trên đường chéo chính).
d. Tính tổng các phần tử nguyên tố nằm trên đường chéo chính.
Mọi người giúp mình câu này với ạ, mình đang cần gấp: Viết chương trình nhập vào 1 ma trận số nguyên kích thước m x m ô. Tính tổng các phần tử trên đường chéo chính.
uses crt;
var i,j,m:integer;
t:longint;
a:array[1..100,1..100]of integer;
begin
clrscr;
write('nhap m:');readln(m);
for i:=1 to m do
for j:=1 to m do
begin
write('a[',i,',',j,']=');readln(a[i,j]);
end;
clrscr;
writeln('ma tran da nhap la:');
for i:=1 to m do
begin
for j:=1 to m do
write(a[i,j]:5);writeln;
end;
i:=1;j:=1;
while i<=m do
begin
t:=t+a[i,j];
inc(i);inc(j);
end;
writeln('tong cac phan tu nam tren duong cheo chinh la: ',t);
readln;
end.
Viết chương trình nhập vào mảng số nguyên gồm 5 phần tử sau đó in ra màn hình phần tử có giá trị lớn nhất Câu 2: viết chương trình nhập vào mảng số nguyên gồm 6 phần tử sau đó in ra màn hình giá trị nhỏ nhất
Câu 1:
uses crt;
var a:array[1..5]of integer;
max,i:integer;
begin
clrscr;
for i:=1 to 5 do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to 5 do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
Câu 2:
uses crt;
var a:array[1..6]of integer;
min,i:integer;
begin
clrscr;
for i:=1 to 6 do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to 6 do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
1/Viết chương trình nhập vào một mảng số nguyên sắp xếp lại mảng đó theo thứ tự giảm dần
2/ Viết chương trình cho phép nhập vào 1 mảng gồm N phần tử, cho biết số nhỏ nhất trong các số vừa nhập là số thứ mấy
giúp em với ak
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,tam,j: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-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;
for i:=1 to n do
write(a[i]:4);
readln;
end.
a) Viết chương trình nhập vào một dãy số nguyên gồm k phần tử, giá trị của từng phần tử cũng nhập vào từ bàn phím. Sau đó tính tích của các số nhỏ hơn 30 có trong dãy số đã nhập
b) Viết chương trình nhập vào một dãy số nguyên gồm n phần tử, giá trị của từng phần tử cũng nhập vào từ bàn phím. Sau đó tính tổng các số nhỏ hơn 100 có trong dãy số đã nhập
a) var a:array[1..1000] of integer;
i,k:integer;
p:longint;
begin
write('k = ');readln(k);
p:=1;
for i:=1 to k do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
if a[i]<30 then p:=p*a[i];
end;
write('Tich la ',p);
readln
end.
b)
var a:array[1..1000] of integer;
i,k:integer;
s:longint;
begin
write('k = ');readln(k);
for i:=1 to k do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
if a[i]<100 then s:=s+a[i];
end;
write('Tong la ',s);
readln
end.
Viết chương trình giải các bài toán sau :
(Mỗi bài 1 chương trình)
1) Cho 1 dãy gồm N phần tử .Tính tổng các phần tử CHẴN trong dãy.
2) Cho 1 dãy gồm N phần tử .Tìm giá trị LỚN nhất trong dãy (N \(\le\) 400).
3) Cho 1 dãy gồm N phần tử .Sắp xếp dãy theo chiều TĂNG dần.
CÁC BẠN GIÚP MÌNH VỚI ! CẢM ƠN !
Viết chương trình nhập từ bàn phím số tự nhiên m và n. Sau đó lần lượt nhập m dòng, mỗi dòng bao gồm n số cách nhau bởi dấu cách, Đưa dữ liệu đã nhập vào ma trận A, in ma trận A ra màn hình, Sau đó:
a) Tính tổng các phần tử ma trận A.
b) In ra dòng có tổng các phần tử lớn nhất (nếu có nhiều dòng bằng nhau thì in tất cả các dòng)
c) In ta gía trị các phần tử phân biệt trong ma trận tức là nếu có các giá trị xuất hiện nhiều lần trong mã trận A thì chỉ in rõ một lần.
d) Cho phép người dùng tìm số lần xuất hiện của một số bất kì trong ma trận A, ví dụ người dùng nhập vào số 3 chương trình thông báo số 3 xuất hiện x lần trong ma trận tại các vị trí cột (i,j) cụ thể.
m = int(input("Nhập số hàng của ma trận: "))
n = int(input("Nhập số cột của ma trận: "))
A = []
for i in range(m):
# Nhập một dòng gồm n số nguyên cách nhau bởi dấu cách
row = list(map(int, input(f"Nhập dòng {i+1}: ").split()))
A.append(row)
# In ma trận A ra màn hình
for i in range(m):
for j in range(n):
print(A[i][j], end=" ")
print()
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.