Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 22, средняя оценка - 4.68
Рузана
0 / 0 / 0
Регистрация: 23.03.2011
Сообщений: 52
#1

Вывести индекс тех элементов амссива, значения которых больше значения предыдущего элемента - Turbo Pascal

17.04.2012, 08:55. Просмотров 3355. Ответов 1
Метки нет (Все метки)

На паскале
Дан массив целых чисел,состоящий из 10 элементов.Заполнить его с клавиатуры.Найти:
1 удвоенную сумму положительных элементов
2 Вывести индекс тех элементов,значения которых больше значения предыдущего элемента(начиная со второго).
3 Определить,есть ли две пары соседних элементов с одинаковыми знаками

ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ ПОЖАЛУЙСТА.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.04.2012, 08:55
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вывести индекс тех элементов амссива, значения которых больше значения предыдущего элемента (Turbo Pascal):

Найти индексы тех элементов массива, значения которых больше значения предыдущего элемента
Дан массив целых чисел.Найти индексы тех элементов массива, значения которых...

Подсчитать количество элементов массива, значения которых больше значения предыдущего элемента
Подсчитать кол-во элементов значения которых больше значения предыдущего...

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

Вывести индексы тех элементов, значения которых больше заданного числа А
))))))

Вывести индексы тех элементов массива, значения которых больше заданного числа А
Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры....

Вывести индексы тех элементов массива, значения которых больше заданного числа А
Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры....

1
tm2012
108 / 108 / 100
Регистрация: 04.03.2012
Сообщений: 146
17.04.2012, 09:14 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
uses crt;
var a:array[1..10] of integer;
sum:integer; k,i:0..10;
begin
   clrscr;
   writeln('Vvedi elementy massiva:');
   for i:=1 to 10 do
      begin
         write(i,' element = ');
         readln(a[i]);
         if a[i]>0 then inc(sum,a[i]);
      end;
   clrscr;
   writeln('Vvedennyi massiv:');
   for i:=1 to 10 do
      write(a[i]:4);
   k:=0;
   writeln(#13#10,'удвоеннaя суммa положительных элементов: ',sum*2);
   writeln('индекс тех элементов,значения которых больше значения предыдущего элемента');
   for i:=2 to 10 do
      begin
         if a[i]>a[i-1] then write(i:3);
         if ((a[i]>=0) and (a[i-1]>=0)) or ((a[i]<0) and (a[i-1]<0))
            then inc(k);
      end;
   writeln;
   if k>=2 then writeln('ECTb две пары соседних элементов с одинаковыми знаками')
      else writeln('HET две пары соседних элементов с одинаковыми знаками');
   readkey;
end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.04.2012, 09:14
Привет! Вот еще темы с решениями:

Вычислить сумму тех элементов последовательности, номера которых на единицу больше чем значения элемента последовательности
Дана последовательность из n вещественных чисел. Вычислить сумму тех элементов...

Знайти индексы тех элементов, значения которых больше заданного числа А.
Дано масив целых чисел.Знайти индексы тех элементов, значения которых больше...

Оформить в виде функции вычисление среднего арифметического тех элементов матрицы, значения которых больше Х и меньше Y
ЗадаН массив целого типа А. Оформить в виде функции вычисление среднего...

Вывести индексы тех элементов массива, значения которых по модулю меньше заданного числа А
Помогите решить с процедурой или функцией. Заранее спасибо))) 1. Дан...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru