Program Upr_1b;
Var
n,m,i,k,s:byte;
A:array[1..7,1..6] of integer;
B:array[1..6] of byte;
begin
repeat
writeln('‚?®¤ 1<=n<=6, 1<=m<=7');
read(n,m);
until (n<=6) AND (m<=7);
writeln('‚?®¤ ¬_?????',n,'*',m);
For i:=1 to n do
For k:=1 to m do
read(A[k,i]); writeln;
For i:=1 to n do
begin
s:=0;
For k:=1 to m do
If A[i,k] < 0 then
s:=s+1;
B[k]:=s; [COLOR=red]{??? здесь k всегда равно m}
{и вообще у тебя строки по i, а сумму ты заносишь в k-тый элемент?}
{Скорее всего B = s;}[/COLOR]
write(B[k]);
[COLOR=red]{Здесь тоже самое write (B);}[/COLOR]
end;
writeln
end.
Посмотрите задачу
Всем привет. Написал программу, и что-то она мне не нравится. Если не трудно посмотрите в чем дело.
Матрица A состоит из 7 строк и 6 столбцов. Сформировать массив B, k-тый элемент которого равен количеству отрицательных элементов расположенных в k-той строке матрицы.
Матрица A состоит из 7 строк и 6 столбцов. Сформировать массив B, k-тый элемент которого равен количеству отрицательных элементов расположенных в k-той строке матрицы.
Цитата:
Originally posted by Ромка_1983
Всем привет. Написал программу, и что-то она мне не нравится. Если не трудно посмотрите в чем дело.
Матрица A состоит из 7 строк и 6 столбцов. Сформировать массив B, k-тый элемент которого равен количеству отрицательных элементов расположенных в k-той строке матрицы.
Всем привет. Написал программу, и что-то она мне не нравится. Если не трудно посмотрите в чем дело.
Матрица A состоит из 7 строк и 6 столбцов. Сформировать массив B, k-тый элемент которого равен количеству отрицательных элементов расположенных в k-той строке матрицы.
Код:
Цитата:
Originally posted by AlexandrVSmirno
[COLOR=red]a[/COLOR]
Код:
Program Upr_1b;
Var
n,m,i,k,s:byte;
A:array[1..7,1..6] of integer;
B:array[1..6] of byte;
begin
repeat
writeln('‚?®¤ 1<=n<=6, 1<=m<=7');
read(n,m);
until (n<=6) AND (m<=7);
writeln('‚?®¤ ¬_?????',n,'*',m);
For i:=1 to n do
For k:=1 to m do
read(A[k,i]); writeln;
For i:=1 to n do
begin
s:=0;
For k:=1 to m do
If A[i,k] < 0 then
s:=s+1;
B[k]:=s; [COLOR=red]{??? здесь k всегда равно m}
{и вообще у тебя строки по i, а сумму ты заносишь в k-тый элемент?}
{Скорее всего B = s;}[/COLOR]
write(B[k]);
[COLOR=red]{Здесь тоже самое write (B);}[/COLOR]
end;
writeln
end.
Var
n,m,i,k,s:byte;
A:array[1..7,1..6] of integer;
B:array[1..6] of byte;
begin
repeat
writeln('‚?®¤ 1<=n<=6, 1<=m<=7');
read(n,m);
until (n<=6) AND (m<=7);
writeln('‚?®¤ ¬_?????',n,'*',m);
For i:=1 to n do
For k:=1 to m do
read(A[k,i]); writeln;
For i:=1 to n do
begin
s:=0;
For k:=1 to m do
If A[i,k] < 0 then
s:=s+1;
B[k]:=s; [COLOR=red]{??? здесь k всегда равно m}
{и вообще у тебя строки по i, а сумму ты заносишь в k-тый элемент?}
{Скорее всего B = s;}[/COLOR]
write(B[k]);
[COLOR=red]{Здесь тоже самое write (B);}[/COLOR]
end;
writeln
end.
Оп-па, а это дело я пропустил.
Спасибо большое! :)
Если можно задам здесь еще один вопрос.
Начал писать заключительную в моем списке программу, и не фига не врубаюсь как её сделать.
Матрица А состоит из 4 строк и 8 столбцов. Найти max элемент и подсчитать сумму элементов столбца в котором он находится.
Начал писать заключительную в моем списке программу, и не фига не врубаюсь как её сделать.
Матрица А состоит из 4 строк и 8 столбцов. Найти max элемент и подсчитать сумму элементов столбца в котором он находится.
Цитата:
Originally posted by Ромка_1983
Если можно задам здесь еще один вопрос.
Начал писать заключительную в моем списке программу, и не фига не врубаюсь как её сделать.
Матрица А состоит из 4 строк и 8 столбцов. Найти max элемент и подсчитать сумму элементов столбца в котором он находится.
Если можно задам здесь еще один вопрос.
Начал писать заключительную в моем списке программу, и не фига не врубаюсь как её сделать.
Матрица А состоит из 4 строк и 8 столбцов. Найти max элемент и подсчитать сумму элементов столбца в котором он находится.
Ну в Паскаль сам переведешь
Код:
//Поиск максимально элемента методом пузырька
max = a[1][1]
цикл по i от 1 до m
начало
цикл по j от 1 до n
начало
если a[j] > max тогда
max = a[j]
maxind = j
кесли
кцикл
кцикл
//подсчет суммы в столбце
sum = 0;
цикл по i от 1 до m
начало
sum += a[maxind]
кцикл
max = a[1][1]
цикл по i от 1 до m
начало
цикл по j от 1 до n
начало
если a[j] > max тогда
max = a[j]
maxind = j
кесли
кцикл
кцикл
//подсчет суммы в столбце
sum = 0;
цикл по i от 1 до m
начало
sum += a[maxind]
кцикл
Примерно так.
Цитата:
Originally posted by AlexandrVSmirno
Ну в Паскаль сам переведешь
Примерно так.
Ну в Паскаль сам переведешь
Код:
//Поиск максимально элемента методом пузырька
max = a[1][1]
цикл по i от 1 до m
начало
цикл по j от 1 до n
начало
если a[j] > max тогда
max = a[j]
maxind = j
кесли
кцикл
кцикл
//подсчет суммы в столбце
sum = 0;
цикл по i от 1 до m
начало
sum += a[maxind]
кцикл
max = a[1][1]
цикл по i от 1 до m
начало
цикл по j от 1 до n
начало
если a[j] > max тогда
max = a[j]
maxind = j
кесли
кцикл
кцикл
//подсчет суммы в столбце
sum = 0;
цикл по i от 1 до m
начало
sum += a[maxind]
кцикл
Примерно так.
Вроде бы переписал, но все равно что то здесь не так...