Найти условие А матрицы

@Lexx2012 · Регистрация: 15.06.2010

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

Найти (условие А) матрицы. Условие А (максимальный положительный элемент). Матрица произвольная.

@Mиxaил · 16.06.2010, 13:50

Pascal

const N=3; M=4;
var a:array[1..N,1..M] of integer;
   i,j,max:integer;
begin
for i:=1 to N do
  for j:=1 to M do
    begin
      write('a[',i,',',j,'] = ');
      readln(a[i,j]);
    end;
max:=-MaxInt;
for i:=1 to N do
  for j:=1 to M do
    if (a[i,j]>0) and (a[i,j]>max) then max:=a[i,j];
writeln('maximum of matrix: ',max);
readln;
end.

@Lexx2012 0 / 0 / 0 Регистрация: 15.06.2010 Сообщений: 13
		1
	Найти условие А матрицы 16.06.2010, 13:20. Показов 1212. Ответов 1 Метки нет (Все метки) Найти (условие А) матрицы. Условие А (максимальный положительный элемент). Матрица произвольная. 0

	16.06.2010, 13:50

Найти условие А матрицы

Решение