Технический форум - Я надеюсь на вас.

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Я надеюсь на вас. (http://www.tehnari.ru/f41/t32867/)

Я надеюсь на вас.

Однажды мне очень сильно помогли на этом форуме за что я ещё раз вас всех благодарю;)так вот мне на днях позвонил одногруппник и просил очень помочь ему с этими заданиями поскольку он сейчас здаёт на права то очень много пропускает:( я ему сказал что я не шпарю в паскале но знаю один форум где очень хорошие люди помогли мне:)и я надеюсь на вашу помощь и в этих задачах:
1
В целочисленном массиве найти максимальный элемент и вывести его индекс. Если он встречается несколько раз, вывести все соответствующие индексы и подсчитать количество вхождений максимума в массив
2
Вычислите значения функции x^3-x^2+16x-43 для x изменяющегося в диапазоне от -4 до 4 с шагом 0,5

ну так задачи же элементарные.. пробуйте сами, а мы уже подскажем, что исправить

Бы ли бы они для нас элементарные я бы навряд ли бы к вам обратился;),но за совет спасибо:)хоть у меня и наврядли получиться им воспользоваться я в самом описание темы уже объяснял на коком у меня уровень знания в турбо паскале:(

ээхх.. сейчас сделаю

Спасибо за понимание

Код:

uses crt;

var n,i,max,nmax,kmax:integer;

    a:array [1..50] of integer;

begin clrscr;

      write ('Vvedi kol-vo elementov: ');

      readln (n);

      writeln ('Vvodi massiv: ');

      for i:=1 to n do

       read (a[i]);

      max:=a[1];

      nmax:=1;

      for i:=2 to n do

       if a[i]>max then begin

        max:=a[i];

        nmax:=i;

       end;

      for i:=1 to n do

       if a[i]=max then

        inc(kmax,1);

      writeln ('max=', max, '; kolichestvo=', kmax);

      readkey;

end.

Код:

uses crt;

var x,y:real;

begin clrscr;

      x:=-4;

      writeln ('  x     y');

      repeat

       x:=x+0.5;

       y:=x*sqr(x)-sqr(x)+16*x-43;

       writeln (x:4:1, y:8:2);

      until x=4;

      readkey;

end.

Я очень благодарю вас за оказанною вами помощь для меня и моего друга. как я уже говорил вы ребята делаете людей счастливыми;)

разбирайтесь

Окей вот это уже в наших силах.Ещё раз спасибо:)