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

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

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

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

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

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

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

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

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

Вывести индексы тех элементов массива, значения которых больше заданного числа А
Дан массив целых чисел, состоящий из 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

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

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

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


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

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

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