Задача по массивам в паскале

[Tamerlaan_Sg]

Задача по массивам в паскале

Помогите пожалуйста решить следующую задачу.(тема - организация программ, содержащих подпрограммы)

Ввести двумерный массив вещественных чисел, преобразовать массив так, чтобы в каждом столбце местами поменялись максимальный и последний элемент. Вывести на экран исходный массив и преобразованый

СПАСИБО

 

[Vladimir_S]

Помогите пожалуйста решить следующую задачу.(тема - организация программ, содержащих подпрограммы)

Ввести двумерный массив вещественных чисел, преобразовать массив так, чтобы в каждом столбце местами поменялись максимальный и последний элемент. Вывести на экран исходный массив и преобразованый

СПАСИБО

К сожалению, Вы толком не написали, куда тут требуется засунуть подпрограмму - вроде как из постановки задачи никак не следует надобность в процедурах или функциях. Так что уточните. Ну а просто решение - пожалуйста:

CONST
N= {enter number of strings}
M= {enter number of columns}
VAR
a,b:ARRAY[1..N,1..M] of REAL;
i,j:INTEGER;
Max,Last:ARRAY[1..M] of REAL;
Num_Max:ARRAY[1..M] of INTEGER;
BEGIN
Randomize;
FOR i:=1 TO N DO
FOR j:=1 TO M DO
BEGIN
a[i,j]:=Random*100-50;
b[i,j]:=a[i,j];
END;
FOR j:=1 TO M DO
Last[j]:=a[N,j];
FOR j:=1 TO M DO
BEGIN
Max[j]:=-50.0;
FOR i:=1 TO N DO
IF a[i,j]>Max[j] THEN
BEGIN
Max[j]:=a[i,j];
Num_Max[j]:=i;
END;
END;
FOR j:=1 TO M DO
BEGIN
b[Num_Max[j],j]:=Last[j];
b[N,j]:=Max[j];
END;
FOR i:=1 TO N DO
BEGIN
FOR j:=1 TO M DO
Write(a[i,j]:8:3);
Writeln;
END;
Writeln;
Writeln;
FOR i:=1 TO N DO
BEGIN
FOR j:=1 TO M DO
Write(b[i,j]:8:3);
Writeln;
END;
Readln;
END.

Честно скажу: не проверял, попробуйте, если что не так - поправим.

 

[ummasha]

Vladimir_S, программа работает Осталось понять, как работает)))

 

[Vladimir_S]

Vladimir_S, программа работает

Уже хорошо.

Осталось понять, как работает)))

Абсолютно ничего сложного.

 

[Tamerlaan_Sg]

Огромное Вам спасибо. Честно говоря это было все задание, что выдали, а возможности уточнить, к сожалению, нет. Спасибо огромное за задачу.