Определить числа матрицы, равные соответственно наименьшим значениям элементов строк

@sketch_ast · Регистрация: 09.01.2013

дана действительная матрица размера m x n. Определить числа {b}_{1},...{b}_{m}, равные соответственно наименьшим значениям элементов строк

Добавлено через 6 минут
$https://www.cyberforum.ru/cgi-bin/latex.cgi?{b}_{1},...{b}_{m}$ - так правильнее)

@vampire6666 · 27.01.2013, 16:42

sketch_ast,

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var a:array[1..100,1..100] of Integer;
    n,m,i,j,min,k:Integer;
    b:array[1..100] of Integer;
begin
  Writeln('Vvedite razmernost massiva:');
read(n);
read(m);         k:=0;
for i:=1 to n do
   for j:=1 to m do
      a[i,j]:=Random(20);
      Writeln('Matrica:');
for i:=1 to n do      begin
   for j:=1 to m do   write(a[i,j], ' ');
   Writeln;
                       end;
 
 
 for i:=1 to n do  begin min:=a[i,1];
   for j:=1 to m do
     if (a[i,j]<Min) then min:=a[i,j];
     k:=k+1;b[k]:=min;
                    end;
                    Writeln('Resultat:');
 for i:=1 to k do
 write(b[i], ' ');
                    readln;
end.

@sketch_ast · 27.01.2013, 18:52 **[ТС]**

пишу размер массива, дальше ничего, закрывает

@OverDozero · 27.01.2013, 19:29

Сообщение от sketch_ast

пишу размер массива, дальше ничего, закрывает

Между 32 и 33 строкой вставь еще 1 readln;

@sketch_ast · 27.01.2013, 19:30 **[ТС]**

спасибо вам)

@sketch_ast 0 / 0 / 0 Регистрация: 09.01.2013 Сообщений: 29
		1
	Определить числа матрицы, равные соответственно наименьшим значениям элементов строк 27.01.2013, 15:42. Показов 1854. Ответов 4 Метки нет (Все метки) дана действительная матрица размера m x n. Определить числа {b}_{1},...{b}_{m}, равные соответственно наименьшим значениям элементов строк Добавлено через 6 минут $https://www.cyberforum.ru/cgi-bin/latex.cgi?{b}_{1},...{b}_{m}$ - так правильнее) 0

@sketch_ast 0 / 0 / 0 Регистрация: 09.01.2013 Сообщений: 29
	27.01.2013, 18:52 [ТС]	3
	пишу размер массива, дальше ничего, закрывает 0

@OverDozero 262 / 218 / 94 Регистрация: 07.04.2011 Сообщений: 1,342
	27.01.2013, 19:29	4
	Сообщение от sketch_ast пишу размер массива, дальше ничего, закрывает Между 32 и 33 строкой вставь еще 1 readln; 1

@sketch_ast 0 / 0 / 0 Регистрация: 09.01.2013 Сообщений: 29
	27.01.2013, 19:30 [ТС]	5
	спасибо вам) 0

Опции темы

Определить числа матрицы, равные соответственно наименьшим значениям элементов строк

Решение