Паскаль,9 класс

[kate_cinnamon]

Задан целочисленный одномерный массив a из n элементов.Найти номер последнего минимального элемента среди элементов,меньших t1 и лежащих правее первого элемента,равного t2

Я сделала программу:

program kate; 
var a:array [1..100] of integer; 
i,n:integer; 
p1:boolean; 
p2:boolean; 
begin 
writeln('vvedite razmernost massiva') 
readln(n); 
writeln ('vvedite',n,'elementov massiva'); 
for i:=1 to n do 
readln(a); 
writeln('vvedite granizi t1 i t2'); 
readln(t1,t2); 
p1:=false; 
for i:= 1 to n do 
if(a<t1)>=t2) then 
p2:=true;

Учитель сказал,что мне не хватает каких 2-3 строчек.Что это за строчки и как заканчивается программа.Напишите,пожалуйста,подро бно,а то я плохо понимаю.

[kate_cinnamon]

var a:array[1..100] of Integer;
t1,t2,i,n,m:Integer;
begin
write('n:=');readln(n);
write('t1:=');readln(t1);
write('t2:=');readln(t2);
writeln('Элементы массива:');
for i:=1 to n do begin write(i,'->');readln(a[ i]);end;
m:=t2;
for i:=t2 to t1 do if (a[ i]<=a[ m]) then m:=i;
writeln('min index: ',m);
end.

является ли эта программа правильной?

[Poma][a]

а самой не проверить?

З.Ы. неа, не является...

[Blondy]

Вот зачем детям в школе голову морочат? Им же это потом не пригодится - лучше бы дети гуляли больше, кино там, книжки, а не бессмысленные посиделки за компом.

[Poma][a]

А может пригодится? Всё зависит от препода -> рассказал материал интересно, дык многие захотят стать программистами, а если морочить голову всякой х*рней получим людей ненавидящих програмирование

[kate_cinnamon]

так как каких же строчек не хватает?

[Alex11223]

Ну смотря кто и кому "морочит", если хороший преподаватель, то вполне возможно что сможет кого-то мотивировать на дальнейшей изучение, выбор профессии и т.п. А, например, за пределами РФ в старших классах можно выбирать заниматься ли программированием или только ворд\эксель.

[Poma][a]

Вот плавно перешли к тому, что в России все - .....

[kate_cinnamon]

неужели мне никто не поможет((?

[Poma][a]

Сообщение от kate_cinnamon

так как каких же строчек не хватает?

ну наверно вывода и end.