Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Dima2000
1 / 1 / 0
Регистрация: 17.12.2017
Сообщений: 4
#1

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

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

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

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

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

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

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

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

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

6
Tnoktkm
1 / 1 / 0
Регистрация: 17.12.2017
Сообщений: 19
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 / 0
Регистрация: 17.12.2017
Сообщений: 19
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 / 0
Регистрация: 17.12.2017
Сообщений: 19
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
Привет! Вот еще темы с ответами:

В одномерном массиве найти среднее значение среди всех элементов и вывести индексы нулевых элементов - Pascal ABC
есть такой вот код, но что то мне подсказывает, что тут не правильно var A:array of integer; S,n,i:integer; begin Readln(n); ...

Найти сумму элементов, стоящих на четных местах - Pascal ABC
Найти сумму элементов,стоящих на четных местах. Задачу сделать с использованием массива. Не могу понять где ошибка program p1; ...

Вычислить сумму элементов матрицы стоящих на четных местах - Pascal
1)Дан массив размером N. Вычислить сумму элементов стоящих на четных местах. Определить минимальный и максимальный элемент массива. ...

Найти количество нулевых элементов, стоящих на четных местах - Pascal ABC
Дан массив элементов длины N. Найти: 1. Количество нулевых элементов, стоящих на четных местах.


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

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

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