|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
23.05.2012, 16:37 | #1 (permalink) |
Member
Регистрация: 06.01.2012
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить задачу
Дана целочисленная квадратная матрица порядка n. Получить b1, b2,.... bn, где bi - это значение наименьшего положительного элемента i-й строки (если таких элементов нет, то принять bi =0). |
23.05.2012, 16:37 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
По запросам найдены топики, которые по содержанию схожи с вашим Помогите решить задачу Помогите решить задачу Помогите решить задачу) Помогите решить задачу |
23.05.2012, 16:39 | #2 (permalink) |
Member
Регистрация: 06.01.2012
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
это все до чего додумалась, но все равно работает не правильно.
Program P6; {Дана целочисленная квадратная матрица порядка n, Получить b1,b2,...bn, где bi-это значение наименьшего положительного элемента i-ой строки (если таких элементов нет , то принять bi=0) } uses crt; const n=4; procedure RandomM(var M:array [0..n] of array [0..n] of integer); var i,j:integer; begin randomize; for i:=0 to n do for j:=0 to n do M[i][j]:=random(10)-5; end; procedure OutM(M:array [0..n] of array [0..n] of integer); var i,j:integer; begin for i:=0 to n do begin for j:=0 to n do write(M[i][j]:4); writeln; end; end; var M: array [0..n] of array [0..n] of integer; A: array [0..n] of integer; i,j,min:integer; begin RandomM(M); OutM(M); for i:=0 to n do begin if M[i][0]>0 then min:=M[i][0] else min:=0; for j:=0 to n do if (min>M[i][j]) and (M[i][j]>0) then begin min:=M[i][j]; end; A[i]:=min ; if min<=0 then min:=A[i]; end; writeln('Ответ'); for i:=0 to n do write(A[i]:4); End. не знаю как ее доделать, помогите пожалуйста. |
23.05.2012, 17:01 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
О, ужас - наворотили! А всего и надо-то, что:
Код:
Const N=4; Var M:Array[0..N,0..N] of Integer; A:Array[0..N] of Integer; i,j:Byte; Begin Randomize; For i:=0 to N do begin For j:=0 to N do begin M[i,j]:=4-Random(10); Write(M[i,j]:4); end; Writeln; end; Writeln; For i:=0 to N do begin A[i]:=10; For j:=0 to N do If (M[i,j]>0) and (M[i,j]<A[i]) then A[i]:=M[i,j]; If A[i]=10 then A[i]:=0; end; For i:=0 to N do Write(A[i]:4); Readln; End. |
23.05.2012, 17:08 | #5 (permalink) |
Member
Регистрация: 06.01.2012
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
О да то что нужно спасибо))
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|