Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Dima2000
1 / 1 / 0
Регистрация: 17.12.2017
Сообщений: 4
1

Вывести на экран индексы элементов в порядке возрастания самих элементов среди элементов стоящих на четных местах

17.12.2017, 13:58. Просмотров 208. Ответов 6
Метки нет (Все метки)

Здравствуйте!! Помогите...Вывести на экpан индексы элементов в поpядке возpастания самих элементов сpеди элементов стоящих на четных местах.
1
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2017, 13:58
Ответы с готовыми решениями:

Найти наименьшее значение и его номер среди элементов массива x, стоящих на четных местах
Дано:массив X(14).найти наименьшее значение и его номер среди элементов массива...

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

Найти и вывести все номера четных элементов массива, стоящих на нечетных местах
Найти и вывести все номера четных элементов массива, стоящих на нечетных местах.

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

Вычислить сумму элементов, стоящих на чётных местах и произведение элементов, стоящих на нечётных местах
Для массива X(X1, X2......Xn), имеющего положительные и отрицательные элементы,...

6
Tnoktkm
1 / 1 / 3
Регистрация: 17.12.2017
Сообщений: 20
17.12.2017, 17:04 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
program mass;
     const n = 9;
var
     i,zam,zam_2,pop,ch,k,j :integer;
     ar:array [0..n] of integer;  {Массив}
   
begin
 
for i:=0 to n do
  readln(ar[i]);
 
for i:=0 to n do
  begin
  for j:=1 to n do 
    begin
  if ar[i]>ar[j] then
    pop:=pop+1;
    end;
  ar[i]:=pop;
  pop:=0;
  j:=j+1;
  end;
  write(ar);
 
end.
0
Dima2000
1 / 1 / 0
Регистрация: 17.12.2017
Сообщений: 4
17.12.2017, 18:05  [ТС] 3
Спасибо!! А как она работает!??
0
Tnoktkm
1 / 1 / 3
Регистрация: 17.12.2017
Сообщений: 20
17.12.2017, 18:17 4
Она немного недороботана
0
Dima2000
1 / 1 / 0
Регистрация: 17.12.2017
Сообщений: 4
17.12.2017, 19:23  [ТС] 5
А где может быть ошибка!?
0
Tnoktkm
1 / 1 / 3
Регистрация: 17.12.2017
Сообщений: 20
18.12.2017, 20:42 6
Всё, я переделал, теперь все валидно.



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
program q24itd;
 
var 
  i,c,j,x:integer;
  ar:array[1..10] of integer;  {Массив}
  ar2:array[1..10] of integer;  {Массив 2}
begin
  randomize;
  
  for i:=1 to 10 do   
   ar[i]:=Random(50000);    {Заполнение массива}
   
   
   for j:=1 to 10 do
   begin
   x:=1;
   for i:= 1 to 10 do
      if ar[j]>ar[i] then 
        begin
          x:=x+1;
        end;  
        ar2[x]:=j;
   end;     
     write(ar);
     writeln(' - Не сортированнай массив.');
     write(ar2);
     writeln(' - Номера элементов массива по возрастанию самих элементов.');
end.
1
Dima2000
1 / 1 / 0
Регистрация: 17.12.2017
Сообщений: 4
22.12.2017, 20:10  [ТС] 7
Спасибо)
0
22.12.2017, 20:10
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.12.2017, 20:10

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

Найти сумму всех четных элементов массива, стоящих на четных местах
5.Дан массив целых чисел.Найти сумму всех четных элементов массива, стоящих на...

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


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

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

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