![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
sanchoflat |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 2 Пол: Мужской Репутация: ![]() ![]() ![]() |
задали такую задачку:
"Задан целочисленный одномерный массив A из N элементов. Найти номер первого минимального элемента среди элементов, больших Т1, и расположенных после первого элемента, равного Т2. Если нет элементов со значением Т2, то искать с начала массива. (Подсказка: «Сначала найти первый, равный T2, и последний, больший T1, а затем уже искать минимум, или вывести сообщение о причинах невозможности его поиска.»)" конечно понимаю что тут полная ерунда, но пока понять немного не могу. тут хочу найти номер элемента равного Т2, и номер больший Т1, но как сделать чтоб он был последним Код: Код program Project2; {$APPTYPE CONSOLE} uses SysUtils; var a:array[1..10,1..10] of Integer; i,j,n,s,t1,t2,min,max:Integer; begin write('n='); readln(n); writeln('vvedite matricy'); for i:=1 to n do for j:=1 to n do Readln(a[i,j]); write(' t1='); readln (t1); write('t2='); readln(t2); for i:=1 to n do for j:=1 to n do if a[i,j]=t2 then begin write('nomer='); Readln(a[i,j]); end; for i:=1 to n do for j:=1 to n do if a[i,j]>t1 then begin Writeln('nomer2='); Readln(a[i,j]); end; end. |
![]() ![]() |
![]() |
Текстовая версия | 23.06.2025 1:30 |