Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.05.2014, 20:45   #1
maxim1592
Новичок
Джуниор
 
Регистрация: 27.05.2014
Сообщений: 60
По умолчанию В заданной квадратной матрице

В заданной квадратной матрице найти номер первой из строк, содержащих хотя бы один положительный элемент.
maxim1592 вне форума Ответить с цитированием
Старый 27.05.2014, 21:57   #2
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Код заполнения матрицы покажете?
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 27.05.2014, 22:52   #3
maxim1592
Новичок
Джуниор
 
Регистрация: 27.05.2014
Сообщений: 60
По умолчанию

Код:
const n=5;m=5;
var
a:array [1..n,1..m] of integer;
i,j,z,x,max:integer;
begin
randomize;
write('массив:');
writeln;
for i:=1 to n do
 for j:=1 to m do
  a[i,j]:=random (100)-50;
for i:=1 to n do
begin
 for j:=1 to m do
 write (a[i,j]:5);
 writeln;
end;
надо прописать чтобы искало о-вой элемент, если нету выводило соответствующую информацию

Последний раз редактировалось Stilet; 28.05.2014 в 08:15.
maxim1592 вне форума Ответить с цитированием
Старый 27.05.2014, 22:59   #4
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Выводит ВСЕ такие строки. Попробуйте переделать, чтобы выводило первую.

Код:
{В заданной квадратной матрице найти номер первой из строк, содержащих
хотя бы один положительный элемент.}

const n=5;m=5;
var
a:array [1..n,1..m] of integer;
i,j,z,x,max:integer;
begin
randomize;
write('массив:');
writeln;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random (10)-5;
for i:=1 to n do
begin
for j:=1 to m do
write (a[i,j]:5);
writeln;
end;
for i:=1 to n do
begin
for j:=1 to m do
 if a[i,j]=0 then
   begin
     writeln('Номер строки, содержащей 0: ',i);
     break;
   end;
end;

end.
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 27.05.2014, 23:42   #5
maxim1592
Новичок
Джуниор
 
Регистрация: 27.05.2014
Сообщений: 60
По умолчанию

спасибо большое!!!
maxim1592 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В квадратной матрице сделать циклический сдвиг стобцов влево на 1 Foxlin Помощь студентам 6 22.12.2013 14:52
По заданной квадратной матрице построить вектор artem66rus Помощь студентам 0 11.01.2013 13:30
как в квадратной матрице работать с побочной диагональю? skanku Общие вопросы C/C++ 1 07.12.2011 00:03
В данной действительной квадратной матрице perojenko Помощь студентам 6 23.06.2009 20:59
Найти вектор в квадратной матрице... (С++) Alex88 Помощь студентам 2 19.11.2008 18:25