Pascal, помогите Опции

[CumbeR-C]

помогите решить задачку!
Определить минимальный элемент массива и его порядковый номер.

[GENNADIY]

Вот вам ещё 3 задачи помогите плизз
1) Значение функции y=1-sin2x, при -Пи<=x<=Пи c шагом Пи/4.
2)Имеется 4 произвольных числа A,B,C,D. Эвм должна ответить на вопрос:Правда ли что ...? Ответ Эвм должна вывести в виде текста-слова "Правда" или "неправда".Последнее число несамое маленькое?
3)Имеется массив A из N произвольных чисел (А(N)), среди которых есть положительные, отрицательные и равные. Используя оператор цикла, оставить программу, выполняющую задачу в соответствии с вариантом. Выяснить есть ли одинаковые элементы в массиве. Ответ Да/нет. Например если А=2,4,3,0,2,5,4 результат:Да(одинаковые значения 2 и 2).
Заранее благодарен

[Daniilka]

Вот вам ещё 3 задачи помогите плизз
1) Значение функции y=1-sin2x, при -Пи<=x<=Пи c шагом Пи/4.

var i:integer;
begin
for i:=-4 to 4 do Writeln('y=',sin(pi*x/2));
end;

Как-то так...

2)Имеется 4 произвольных числа A,B,C,D. Эвм должна ответить на вопрос:Правда ли что ...? Ответ Эвм должна вывести в виде текста-слова "Правда" или "неправда".Последнее число несамое маленькое?

var i,m:integer; c:char;

begin
m:= 32767;

for c:='a' to 'c' do
begin
write(c,'= /? ');
Readln(i);
if i<m then m:=i;
end;

writeln ('d= /?');
readln(i);
writeln('Правда ли, что последнее число не самое маленькое ?');
if i < m then Write('правда')
else write('неправда');
end.

3)Имеется массив A из N произвольных чисел (А(N)), среди которых есть положительные, отрицательные и равные. Используя оператор цикла, оставить программу, выполняющую задачу в соответствии с вариантом. Выяснить есть ли одинаковые элементы в массиве. Ответ Да/нет. Например если А=2,4,3,0,2,5,4 результат:Да(одинаковые значения 2 и 2).

const n:=5; // Нужно делать от 1 до 255, иначе менять переменные с типа byte на другой...
var a:array[1..n] of integer; i,j:byte; t:boolean;
begin
if n>1 then begin
Readln(a[1]);
for i:=2 to n do
begin
readln(a[i]); f:=false;
for j:=1 to (i-1) do if a[j] = a[i] then begin t:=true; break; end;
end;

Writeln;
if f then Writeln('Результат: да') else Writeln('Результат: нет')
end
else
Writeln('Результат: нет')

end.


В принципе лажовенько, но под задание прокатывает....

Заранее благодарен

Полагаю, что уже не за что.
Желаю тебе в следующем году научится решать эти и другие задачки в пол плевка самостоятельно...
Передай от меня своему преподу, что он долб@@б, му@@к и полный кр@@@н. ок ?
P.S. Еще раз акцентирую внимание на словах "научится" и "самостоятельно"

[Гость_redHunter_*]

var i:integer;
begin
for i:=-4 to 4 do Writeln('y=',sin(pi*x/2));
end;

А это не прокатит, шаг не pi/4, да и x не определен! Вот так попробуй
var x.y:real;
begin
x:=-pi;
repeat
y:=1-sin(2*pi);
writeln(x:5:2,y:6:2);
x:=x+pi/4;
until x>pi;
end.