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

@koshka1 · Регистрация: 07.06.2011

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

Найти и вывести минимальные по значению элементы в каждой строке заданной матрицы.
помогите пожалуста!

@3a9Ic · 17.04.2012, 16:48

Pascal

uses CRT;
Const n=5;
var a:array [1..n,1..n] of integer;
i,j,s,min:integer;
begin
     clrscr;
     write('Ìàòðèöà:');
     Randomize;
     for i:=1 to n do
     for j:=1 to n do
     a[i,j]:=Random(21);
     for i:=1 to n do
     for j:=1 to n do
     begin
          gotoxy(j*5+5,i+1);
          Write(a[i,j]);
     end;
     min:=a[1,1];
     for i:=1 to n do
     begin
          for j:=1 to n do
          begin
               if a[i,j]< min then min:=a[i,j];
          end;
     gotoxy(j*5+10,i+1);
     write('Min=',min);
     min:=a[1,1];
     end;
end.

@koshka1 · 17.04.2012, 17:39 **[ТС]**

спасибо!

@koshka1 4 / 4 / 0 Регистрация: 07.06.2011 Сообщений: 132
		1
	Найти и вывести минимальные по значению элементы в каждой строке заданной матрицы. 16.04.2012, 16:21. Показов 1175. Ответов 2 Метки нет (Все метки) Найти и вывести минимальные по значению элементы в каждой строке заданной матрицы. помогите пожалуста! 0

@koshka1 4 / 4 / 0 Регистрация: 07.06.2011 Сообщений: 132
	17.04.2012, 17:39 [ТС]	3
	спасибо! 0

Опции темы

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

Решение