|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.06.2010, 10:50 | #1 |
Регистрация: 03.06.2010
Сообщений: 4
|
двумерные массивы
Дана квадратная целочисленная матрица порядка n. Сформировать результирующий одномерный массив, элементами которого являются строчные суммы тех строк, которые начинаются с k идущих подряд положительных чисел.
|
03.06.2010, 12:13 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Наработками можешь похвастаться?
I'm learning to live...
|
05.06.2010, 21:06 | #3 |
Пользователь
Регистрация: 22.01.2010
Сообщений: 37
|
квадратная матрица
#
var a: array[1..n, 1..n] of integer; b: array[1..n] of integer; i, j, k, S,T, m: integer; begin // ввод размерности матрицы write('n='); readln(n); // ввод элементов матрицы for i:=1 to n do begin for j:=1 to n do begin write('a[', i,',','j]='; readln(a[i, j]); end; writeln; end; m:=0; for i:=1 to n do begin if a[i, 1]>0 then begin S:=a[i, 1]; //проверяем первые к элементов на положительность.Если хоть один //элемент отрицательный, выходим из цикла, иначе суммируем for j:=2 to k do begin T:=abs(a[i, j]); if (a[i, j]/T>0) and (j<=k) then S:=S+a[i, j] else goto 1; //если первые к элементов были положительные, то продолжаем //суммирование if (j=k) and (k<n) then for j:=k+1 to n do S:=S+a[i, j]; end; //присваиваем сумму элементу результирующего массива inc(m); b[m]:=S; end; 1: end; // Результирующий массив for i:=1 to m do readln(b[i]); end; # За правильность не ручаюсь, но вроде верно |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Двумерные массивы | V@liK | Помощь студентам | 9 | 04.02.2010 10:48 |
Двумерные массивы | angelangel | Общие вопросы C/C++ | 2 | 22.12.2008 15:47 |
Двумерные массивы | katia230990 | Помощь студентам | 2 | 10.05.2008 00:58 |
Двумерные массивы | Lioness | Помощь студентам | 2 | 06.01.2008 12:39 |