var max,min:real;
i,j:integer;
m: array [1..4,1..4] of real;
begin
..
max:=m[1,1];
for i:=1 to 4 do
for j:=1 to 4 do
if m[i,j]>max then max:=m[i,j];
...
min:=m[1,1];
for i:=1 to 4 do
for j:=1 to 4 do
if m[i,j]<min then min:=m[i,j];
...
(Pascal) Нахождение max и min cтроки матрицы
Помогите найти max и min матрицы
[COLOR="Red"] Отредактируй название темы.[/COLOR]
[COLOR="Red"] Отредактируй название темы.[/COLOR]
Прошу помочь в решений задачи по Паскалю на тему вычисление мах и мин динамичекого масива
[COLOR="Red"]Получаешь нарушение -5 баллов за кросспостинг.В названии темы указывай язык.[/COLOR] m_Valery.Ознакомся с этим.
[COLOR="Red"]Получаешь нарушение -5 баллов за кросспостинг.В названии темы указывай язык.[/COLOR] m_Valery.Ознакомся с этим.
Принимай,что мах равен первому элементу матрицы и далее в циклах сравниваешь с каждым элементом. Если оказывается,что какой то элемент больше мах,то присваиваешь мах значение этого элемента.
Обойдя всю матрицу определишь максимальный элемент.
Обойдя всю матрицу определишь максимальный элемент.
а можешь пример привести
var max,min,i,j:integer; m: array [1..4,1..4] of real;
...
max:=-10000;
for i:=1 to 4 do
for j:=1 to 4 do
if m>max then max:=m;
...
min:=10000;
for i:=1 to 4 do
for j:=1 to 4 do
if m<min then min:=m;
...
...
max:=-10000;
for i:=1 to 4 do
for j:=1 to 4 do
if m>max then max:=m;
...
min:=10000;
for i:=1 to 4 do
for j:=1 to 4 do
if m<min then min:=m;
...
весело ))
как сравнивать real и integer
и откуда взялось 10000 :d
как сравнивать real и integer
и откуда взялось 10000 :d
эххх, студенты-двоечники....
наверно так надо было
наверно так надо было
Код:
Тут нечто похожее