В массиве A(n) найти и напечатать номера (индексы) локальных максимумов

@Не лодырь · Регистрация: 21.12.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте дорогие программисты!
Пожалуйста прочтите, не оставайтесь равнодушными!!!
На вас последняя надежда. Буду откровенен: в программировании я не понимаю ни грамма.
У меня тяжелое положение в семье, поэтому мне приходится работать, времени на учебу совершенно нет. 2 дня назад узнал что 30 июня в 8:30 уже нужно сдавать производственную практику, то есть задачи по паскалю. Я сам вызвался сдать их досрочно, есть вариант на лето уехать в другой город, чтобы заработать немного. Просто в данный момент моя семья очень нуждается в деньгах. Если я сегодня не покажу преподавателю хотя бы 4 из 7 сделанных задач, то 3 недели в июле мне придется ходить на практику, то есть я не смогу устроиться на работу. Еще раз повторюсь, что в данный момент потребность моя в деньгах очень велика. Я не буду описывать всю проблему в своей семье, просто вы не поверите мне и подумаете что я нагло лгу. С гуманитарными науками я никогда не имел проблем. Да и с математическими в школе более-менее дружил. Но программирования в школе у нас не было, т.к. она была малокомплектной (а жил я в деревне) , учителей постоянно не хватало. 2 дня я читал книгу Фаронова по программированию, также методички своих преподавателей. Но из прочитанного мне удалось уяснить только азы паскаля. В общем для меня это пока "тёмный лес". Спасибо всем кто дочитал моё сообщение, эт о не фейк, не обман. Это безысходность! Если кто-то может помочь мне с решением задач, то пожалуйста сделайте это.

1. В массиве A(n) найти и напечатать номера (индексы) локальных максимумов, то есть таких a_i, что a_i-1 < a_i > a_i+1

@Svager · 30.06.2014, 00:43

если понял верно

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax] of integer;
    i,n,k:integer;
begin
 repeat
  write('n=');
   readln(n);
 until n in [1..nmax];
  writeln('Массив - :');
   for i:=1 to n do
    begin
     a[i]:=-10+random(21);
     write(a[i]:4);
    end;
   writeln;
  for i:=2 to n do
   if (a[i]>a[i-1]) and (a[i]>a[i+1])  then
    begin
     writeln(' i=',i,' элемент = ',a[i]);
     inc(k);
    end;
  if k=0 then
   writeln('Локальных максимумов нету.')
end.

Новичок · 30.06.2014, 20:22

Svager, строку

Pascal

k:=0;

нужно добавить, потому как не известно чему к равно. А то могут из неоткуда взяться огромные числа. В общем нужно инициализировать переменные.

@Svager · 30.06.2014, 20:48

Сообщение от Новичок

нужно добавить, потому как не известно чему к равно. А то могут из неоткуда взяться огромные числа. В общем нужно инициализировать переменные.

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

@Не лодырь 1 / 1 / 0 Регистрация: 21.12.2013 Сообщений: 31
		1
	В массиве A(n) найти и напечатать номера (индексы) локальных максимумов 30.06.2014, 00:37. Показов 2555. Ответов 3 Метки нет (Все метки) Здравствуйте дорогие программисты! Пожалуйста прочтите, не оставайтесь равнодушными!!! На вас последняя надежда. Буду откровенен: в программировании я не понимаю ни грамма. У меня тяжелое положение в семье, поэтому мне приходится работать, времени на учебу совершенно нет. 2 дня назад узнал что 30 июня в 8:30 уже нужно сдавать производственную практику, то есть задачи по паскалю. Я сам вызвался сдать их досрочно, есть вариант на лето уехать в другой город, чтобы заработать немного. Просто в данный момент моя семья очень нуждается в деньгах. Если я сегодня не покажу преподавателю хотя бы 4 из 7 сделанных задач, то 3 недели в июле мне придется ходить на практику, то есть я не смогу устроиться на работу. Еще раз повторюсь, что в данный момент потребность моя в деньгах очень велика. Я не буду описывать всю проблему в своей семье, просто вы не поверите мне и подумаете что я нагло лгу. С гуманитарными науками я никогда не имел проблем. Да и с математическими в школе более-менее дружил. Но программирования в школе у нас не было, т.к. она была малокомплектной (а жил я в деревне) , учителей постоянно не хватало. 2 дня я читал книгу Фаронова по программированию, также методички своих преподавателей. Но из прочитанного мне удалось уяснить только азы паскаля. В общем для меня это пока "тёмный лес". Спасибо всем кто дочитал моё сообщение, эт о не фейк, не обман. Это безысходность! Если кто-то может помочь мне с решением задач, то пожалуйста сделайте это. 1. В массиве A(n) найти и напечатать номера (индексы) локальных максимумов, то есть таких a_i, что a_i-1 < a_i > a_i+1 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	30.06.2014, 20:48	4
	Сообщение от Новичок нужно добавить, потому как не известно чему к равно. А то могут из неоткуда взяться огромные числа. В общем нужно инициализировать переменные. Вы думаете что , вы первый кто мне это говорит..я знаю, что нужно..но мне лень..я запустил ,все работает 0