|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.12.2008, 09:41 | #1 |
Пользователь
Регистрация: 09.12.2008
Сообщений: 10
|
Помогите исправить задачу.
Матрица А состоит из 7 строк и 6 столбцов. Сформировать массив В катый элимент которого равен произведению элиментов расположенных в котом столбце матрици.
var A:array[1..6,1..7] of integer; B:array[1..7] of integer; i,j:integer; begin randomize; writeln('A:'); for i:=1 to 6 do begin forj:=1 to 7 do begin A[i,j]:=random(9)+1; write(A[i,j]:4); end; writeln; end; {дальше наш препод говорит что не правельно} for i:=1 to 7 do begin for j:=1 to 6 do B[i]:=B[i]*A[i,j]; write(B[i]:4); end; readln; end. |
19.12.2008, 09:56 | #2 |
Ra-Ra ?
Форумчанин
Регистрация: 06.03.2008
Сообщений: 286
|
А вы сами посмотрите:
Код:
При 1м проходе цикла, В(1) присваиваем значение В(1) умножить на А(1). Но, элемент В(1) у нас равен 0, и все остальные элементы массива В равны 0. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите Исправить задачу по C++ | Many man | Помощь студентам | 2 | 14.12.2008 12:20 |
помогите доделать(исправить) задачу по массиву | braza | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 29.04.2008 19:54 |
помогите пожалуйста исправить задачу | kardan | Помощь студентам | 2 | 12.04.2008 10:16 |
Помогите,пожалуйста,исправить задачу... | Загадка | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 21.12.2006 00:42 |