![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 14.05.2008
Сообщений: 14
|
![]()
заполнить и вывести матрицу после вывести номер столбица с минимальным значением умноженых елементов.
не пойму как заставить умножаться елементы столбца может кто подсказать? |
![]() |
![]() |
![]() |
#2 |
Пользователь
Регистрация: 14.05.2008
Сообщений: 14
|
![]()
задачу в принцепе зделал правда на суму но то не так важно у меня бред с выводом помогите вот код
Program matriza; Uses crt; Const N=5; M=5; Var A:array [1..N,1..M] of integer; Sum:array [1..M] of integer; k,i,j,Min,fl,Amax:integer; Begin ClrScr; Randomize; writeln('Isxodnii massiv: '); For i:=1 to N do Begin For j:=1 to M do Begin A[i,j]:=random(15)-3; write(A[i,j]:3); End; writeln; End; writeln; writeln('Symma v stolbzax: '); For j:=1 to M do Begin For i:=1 to N do Begin Sum[j]:=Sum[j]+A[i,j]; End; sum[j]:=abs(sum[j]); write(sum[j]:3); End; Min:=sum[1]; writeln; For j:=2 to M do Begin If Min>sum[j] then min:=sum[j]; write(min); End; readln; End. |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 14.05.2008
Сообщений: 14
|
![]()
я очень прошу кому не спиться на утро скажыте что подправить просто щас очень спать хочу заранее спасибо
|
![]() |
![]() |
![]() |
#4 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
![]() Код:
|
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 14.05.2008
Сообщений: 14
|
![]()
огромное спасибо eoln
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите с сайтом!!! Дайте совет. | rubens | Помощь студентам | 3 | 06.08.2008 20:46 |
Дайте исходник | LuMax | Помощь студентам | 4 | 02.03.2008 12:41 |
прочтите постановку задачи и дайте совет.. | Алёна | БД в Delphi | 5 | 24.01.2008 18:47 |
Дайте совет с чего лучше начать | Mixa80 | PHP | 6 | 13.12.2007 09:51 |