Найти минимальный из положительных и максимальный из отрицательных элементов матрицы

@YBRBNF · Регистрация: 19.10.2014

Author24 — интернет-сервис помощи студентам

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\left[ \begin{array}{rrrr}2&3&-7&4\\\\-3&9&12&-2.5\\\\1.7&-2.9&\pi /2&0\\\\\end{array}\right]$

@Embark · 17.12.2014, 05:49

Pascal

const n=4,m=3;
type mass=array[1..n,1..m] of Real;
const a:mass((2,-3,1.7),(3,9,-2.9),(-7,12,pi/2),(4,-2.5,0));
var i,j:Integer;
    maxofneg,minofpos:Real;
begin
maxofneg:=-100;
minofpos:=100;
  for i:=1 to n do
   begin
   for j:=1 to m do
    begin
     if a[i,j]<0 then
      begin
       if a[i,j]>maxofneg then maxofneg:=a[i,j];
      end
     else if a[i,j]>0 then
            begin
             if a[i,j]<minofpos then minofpos:=a[i,j];
            end;
    end;
   end;
end.

@YBRBNF 1 / 1 / 0 Регистрация: 19.10.2014 Сообщений: 13
		1
	Найти минимальный из положительных и максимальный из отрицательных элементов матрицы 15.12.2014, 12:31. Показов 1543. Ответов 1 Метки нет (Все метки) $https://www.cyberforum.ru/cgi-bin/latex.cgi?\left[ \begin{array}{rrrr}2&3&-7&4\\\\-3&9&12&-2.5\\\\1.7&-2.9&\pi /2&0\\\\\end{array}\right]$ 0

	17.12.2014, 05:49

Найти минимальный из положительных и максимальный из отрицательных элементов матрицы

Решение