6 задач по TP7

[Disel]

Здраствуйте всем кто на форуме!!! Пожалуйста помагите решить 6 задачь по Турбо Паскалю. Через два дня надо их сдать преподователю, что бы допустил до экзамена.

[capta1n]

Вы простите меня может прозвучит резко, но я не понимаю, как Вы хотите допуститься к экзамену и что вы там будете делать, если вы задачки не можешь решить - действительно, смотрел ваши задачки, и сказали в другой теме, что первые три задачи - детский лепет - найти максимальное из трех значений - простите меня, на 1 курсе это делаться должно влет, такое делают в школе, если вы, конечно, из города; просто интересно, что вы целый семестр делали. Вы не обижайтесь, я могу помочь, но поможет ли вам это понять суть программирования и языка, и сможете ли вы продолжить обучение дальше, и будете ли вы учиться дальше по-другому. Вы простите, если мое замечание прозвучало резко

[ADSoft]

или в раздел Фриланс..... там помогут (за деньги)

[Disel]

capta1n я на Вас не обижаюсь!!! Я пойму суть программирования и языка, если Вы мне в этом поможите. Задачи 1, 5 - решили, я их разобрал и что-то понял для себя.

[alex_fcsm]

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

Я пойму суть программирования и языка, если Вы мне в этом поможите. Задачи 1, 5 - решили, я их разобрал и что-то понял для себя.

Так попробуйте и 6-ую осилить если что не получается спрашивайте только хотелось бы видеть Ваши мысли

[Disel]

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

Так попробуйте и 6-ую осилить если что не получается спрашивайте только хотелось бы видеть Ваши мысли

Исходный массив это S[1..12] как я понял, находим Smax, все элементы до Smax заменяем S[1]. И все это перегоняем в массив T. Я в том направлении мыслю?

[alex_fcsm]

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

Исходный массив это S[1..12] как я понял, находим Smax, все элементы до Smax заменяем S[1]. И все это перегоняем в массив T. Я в том направлении мыслю?

Да все правильно. Приступайте к решению

[spamer]

Ухахаха повтор. И скоко нада создать одинаковых тем, что бы мозги начали думать сами?????

[Disel]

Program zadanie_2;
Uses crt;
const n=3;
Type mas = array [1..n] of integer;
var x:mas; i,min,max,Imin,Imax:integer;

BEGIN
clrscr;
for i:=1 to n do
begin
write('X[',i,']=');
readln(x[i]);
end;

writeln;
writeln('Вывод ');
writeln;

for i:=1 to n do
write(x[i]:3);

writeln;

min:=x[1];
for i:=1 to n do
if min>x[i] then
begin
min:=x[i];
Imin:=i;
end;

writeln('Минимальное значение = ',min);
writeln('Индекс минимального значения = ',Imin);

writeln;

max:=x[1];
for i:=1 to n do
if max<x[i] then
begin
max:=x[i];
Imax:=i;
end;

writeln('Максимальное значение = ',max);
writeln('Индекс максимального значения = ',Imax);


ReadKey;
END.

[Disel]

Почему когда X[1] = max или min, программа выводит ИНДЕКС = 0?