Работа с массивами в Паскале
Помогите, пожалуйста, написать программу для квадратной матрицы А.
1.расчитать элементы матрицы по формуле Ai,j=(i-5)*j+(j-2)! 2.упорядочить элементы 2-ой строки матрицы по возрастанию значений. Заранее спасибо! |
const n=10;
type Tmatr= array[1..n,1..n] of integer; var A: Tmatr; i,j,e,t: integer; begin for i:=1 to n do for j:=1 to n do A[i,j]:=((i-5)*j)+(j-2); for i:=1 to n do begin for j:=1 to n do Write(A[i,j]:5); Writeln; end; Writeln; i:=2; for j:=1 to n-1 do for e:=1 to n-j do if A[i,e]>A[i,e+1] then begin t:=A[i,e]; A[i,e]:=A[i,e+1]; A[i,e+1]:=t; end; for i:=1 to n do begin for j:=1 to n do Write(A[i,j]:5); Writeln; end; Readln; end. |
Спасибо Вам огромное!!!!
|
Часовой пояс GMT +4, время: 07:55. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.