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

@Вова59 · Регистрация: 22.01.2014

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

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

@Samhain · 22.01.2014, 20:24

Вова59,

Pascal

const n=5;
var a:array[1..n,1..n] of integer;
  min,i,j:integer;
begin
  randomize;
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(10)-5;
          write(a[i,j]:4);
          if a[i,j]>0 then min:=a[i,j]
        end;
      writeln
    end;
  for i:=1 to n do
    for j:=1 to n do
      if a[i,j]>0 then
        if a[i,j]<min then min:=a[i,j];
  if min=0 then writeln('Положительный значений нет')
  else writeln('Min = ',min);
  readln
end.

@Вова59 1 / 1 / 0 Регистрация: 22.01.2014 Сообщений: 99
		1
	Найти минимальный элемент среди положительных компонентов матрицы 22.01.2014, 16:31. Показов 1012. Ответов 1 Метки нет (Все метки) 18)Найти минимальный элемент среди положительных компонентов матрицы. 0

	22.01.2014, 20:24

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

Решение