"Задан целочисленный одномерный массив 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.
{$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.