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

Циклические перестановки в одномерных массивах

13.11.2016, 21:11. Просмотров 777. Ответов 1
Метки нет (Все метки)

Ввести одномерный целочисленный массив A, вывести его. В массиве
дважды произвести циклический сдвиг влево всех элементов
предшествующих максимальному из нечётных.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.11.2016, 21:11
Ответы с готовыми решениями:

Циклические перестановки в одномерных массивах
Ввести одномерный массив А , в котором число элементов кратно К , вывести его....

Расчеты в одномерных массивах
Составить блок – схему алгоритма и программу для следующих задач: Ввести...

Реализовать идентичные перестановки в двух массивах
Помогите, пожалуйста. Пытаюсь разобраться. Я новичок. Допустим в массив А...

Напишите программу, которая организует хранение в одномерных массивах K и N
Напишите программу, которая организует хранение в одномерных массивах K и N...

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

1
vint-81
охотник
1009 / 533 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
14.11.2016, 10:07 2
Лучший ответ Сообщение было отмечено filini34 как решение

Решение

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
31
32
33
34
35
36
37
38
const n=10;
type mas=array[1..n] of integer;
var a:mas; 
    i,max:integer;
    f:boolean;
procedure sdv(var x:mas;imax,s:integer);
var i,tmp:integer;
begin
 writeln('После ',s,' сдвига:');
 tmp:=x[1];
 for i:=1 to imax-2 do a[i]:=a[i+1];
 a[imax-1]:=tmp;
 for i:=1 to n do write(a[i]:3);writeln
end;
begin
 writeln('A:');
 f:=false;
 for i:=1 to n do
  begin
   a[i]:=random(21);
   write(a[i]:3);
   if odd(a[i])
    then
     if f then begin if a[i]>a[max] then max:=i end
          else begin max:=i;f:=true end
  end;writeln;
 if f then
        begin
         writeln('максимальный из нечетных: ',a[max],' с номером: ',max);
         if max<3 then writeln('сдвиг нетребуется')
                  else
                   begin
                    sdv(a,max,1);
                    sdv(a,max,2)
                   end
        end
       else writeln('нечетных нет')
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.11.2016, 10:07

Найдите среднее арифметическое всех отрицательных элементов в нечетных элементах двух одномерных массивах
найдите среднее арифметическое всех отрицательных элементов в нечетных...

В одномерных массивах X и Y хранятся соответствующие координаты N точек плоскости. Напечатать номера точек в порядке их удаления от (0,0)
В одномерных массивах X и Y хранятся соответствующие координаты N точек...

Циклические перестановки в одномерных массивах
Очень прошу написать программу... Ввести одномерный целочисленный массив А ...


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

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

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