Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
ВладимирГорячев
0 / 0 / 0
Регистрация: 03.05.2009
Сообщений: 14
#1

Нахождение индексов строк, содержащих..такой-то элемент. - Pascal

21.02.2010, 19:23. Просмотров 631. Ответов 3
Метки нет (Все метки)

Нужно составить программу для нахождения индексов строк, содержащих максимальный отрицательный и минимальный положительный элементы квадратной матрицы. Зранее спасибо)
http://www.cyberforum.ru/pascal/thread102201.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.02.2010, 19:23
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Нахождение индексов строк, содержащих..такой-то элемент. (Pascal):

Найти количество строк матрицы, содержащих хотя бы один нулевой элемент
Дана целочисленная прямоугольная матрица. Определить: 1) количество строк,...

Вставить после всех строк, содержащих максимальный по модулю элемент, первую строку
дан двумерный массив размером n*m и заполненный случайным образом: 1...

Вставить после всех строк матрицы, содержащих минимальный элемент массива, строку 2, 4, 6...
дан двумерный массив размером n*m заполненный следующим образом 1 заменить...

Найти номер первой из строк матрицы, содержащих хотя бы один положительный элемент
Целочисленная прямоугольная матрица заполняется с помощью генератора случайных...

Сформировать вектор D, состоящий из номеров строк, содержащих хотя бы один отрицательный элемент
выполнить с использованием процедуры ввод и вывод массивов и других данных не...

3
Tom_Sawyer
88 / 88 / 56
Регистрация: 05.12.2009
Сообщений: 134
21.02.2010, 20:09 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
program matr;
const n=4; m=4;
var i,j:integer;
    a:array[1..n,1..m] of integer;
    max,min,p,maxi,maxj,mini,minj:integer;
begin
 writeln('Введите матрицу: ');
 writeln('Введите ',n,' элементов: ');
 for i:=1 to n do
  for j:=1 to m do
    begin
      write('a[',i,',',j,']= ');
      readln(a[i,j]);
    end;
 read(a[i,j]);
 max:=-32768;  {Г§Г*Г¤Г*ГҐГ¬ Г§Г*Г*Г·ГҐГ*ГЁГї Г¬Г*êñèìóìó ГЁ ìèГ*èìó, ГІ.ГЄ. ГЁГ№ГҐГ¬ Г*Г* ГЄГ*æäîé ñòðîêå }
 min:=32767;
 for i:=1 to n do
 begin
  for j:=1 to m do
  begin
   if a[i,j]>max then   {óñëîâèÿ ïîèñêГ* Г¬Г*êñèìóìГ*}
    begin
     max:=a[i,j];
     maxi:=i;          {Г§Г*ïîìèГ*Г*ГҐГ¬ ГЁГ*äåêñû Г¬Г*êñèìóìГ*}
     maxj:=j;
    end;
   if a[i,j]<min then { óñëîâèÿ ïîèñêГ* ìèГ*èìóìГ*}
    begin
     min:=a[i,j];
     mini:=i;      {Г§Г*ïîìèГ*Г*ГҐГ¬ èäåêñû ìèГ*èìóìГ*}
     minj:=j;
    end;
  end;
 writeln('Г€Г*äåêñ Г¬Г*êñèìóìГ*: ',maxi);
 writeln('Г€Г*äåêñ ìèГ*èìóìГ*: ',mini);
end;
end.
вроде так
0
Snoopy
1912 / 1069 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
21.02.2010, 20:23 #3
Tom_Sawyer, читайте внимательней задание
Цитата Сообщение от ВладимирГорячев Посмотреть сообщение
содержащих максимальный отрицательный и минимальный положительный элементы
0
Tom_Sawyer
88 / 88 / 56
Регистрация: 05.12.2009
Сообщений: 134
21.02.2010, 23:26 #4
Snoopy, извините меня пожалуйста. я это просмотрел
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.02.2010, 23:26
Привет! Вот еще темы с решениями:

Найти сумму элементов четных строк матрицы, содержащих хотя бы один нулевой элемент
Привет всем ! помогите пожалуйста ,мне не нужна вся программа,только часть ее ....

В матрице найти номера строк, содержащих только нулевые элементы, и номера строк, содержащих только чётные элементы,
Задана целочисленная матрица А размерности N x N. Найти номера строк, которые...

Удалить первый отрицательный элемент массива, если такой элемент есть
1. Удалить первый отрицательный элемент массива, если такой элемент есть....

Дана целочисленная матрица размера M x N. Найти элемент, являющийся максимальным в своей строке и минимальным в своем столбце. Если такой элемент отсу
Дана целочисленная матрица размера M x N. Найти элемент, являющийся...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru