Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ помогите пожалуйста с масивом!

Автор: Fatum 16.12.2006 23:48

Помогите пожалуйста.
1)Упорядочить элементы столбцов матрицы за спадением их значений методом обмена
2)fi(aij) - произведение элементов в каждой строке под вспомогательной диагональю матрицы;
3) F(fi(aij)) - среднее арифметическое значение fi(aij)
Упорядочить - упорядочил а дальше не получаеться (2ю3 пункти)
Заранее благодарен


uses crt;

var
P:array [1..5,1..5] of integer;
n,min,i,j,k,r:integer;

begin {Vvedennya Masuvy};
clrscr;
for i:=1 to 5 do
for j:=1 to 5 do begin
write ('p[',i,' ',j,']=');
readln (P[i,j]);
end;

writeln('Massive');

for i:=1 to 5 do begin
for j:=1 to 5 do
write (P[i,j]:5);
writeln;
end;

writeln('After sort');

{Vporydkyvannya}
for k:=1 to 5 do begin
for j:=1 to 4 do begin
min:=P[j,k]; n:=j;
for i:=j+1 to 5 do
if P[i,k]>min then begin min:=P[i,k]; n:=i; end;
r:=P[n,k];
P[n,k]:=P[j,k];
P[j,k]:=r;
end;
end;
{Vuvedennya}
for i:=1 to 5 do begin
for j:=1 to 5 do
write (P[i,j]:5);
writeln;
end;
readkey;
end.

Автор: Fatum 17.12.2006 5:48


что никто не знает?

Автор: Гость 17.12.2006 17:57

произведение элементов в каждой строке под вспомогательной диагональю матрицы;

Помогите!очень нужно!

Автор: klem4 17.12.2006 19:23

Цитата
произведение элементов в каждой строке под вспомогательной диагональю матрицы;


http://forum.pascal.net.ru/index.php?s=&showtopic=2694&view=findpost&p=23247


Автор: Fatum 17.12.2006 21:40

там сума а нужно произведение.. кто-то подкажет? wacko.gif

Автор: klem4 17.12.2006 21:40

а что переделать сумму в произведение очень сложно ?