Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 13.12.2015, 16:44   #1
andrmerk
Пользователь
 
Регистрация: 13.12.2015
Сообщений: 14
Радость Циклические перестановки

Ввести одномерный целочисленный массив A, вывести его. Найти
максимальный среди нечётных элементов. Далее трижды произвести
циклический сдвиг влево элементов стоящих справа от найденного
максимума, и один раз вправо сдвиг элементов стоящих слева от найденного
максимума.
Проверьте ,пожалуйста,правильно ли составлен код
Код:
program mas;
const N = 10; 
var j,max,i,s,num :integer ; 
A : array[1..N] of integer; 
begin 
max:=0; 
writeln ('Введите массив:');
for i:=1 to N do 
read (A[i]); 
writeln('Исходный массив:');
for i:=1 to N do 
write(A[i],' '); 
for i:=1 to N do
if( A[i] mod 2 = 1 ) then 
if ( max < A[i] ) then 
begin 
max := A[i]; 
j := i; 
end; 
for s:=1 to 3 do
begin 
num := A[j+1]; 
for i:=j+1 to N-1 do 
A[i] := A[i+1]; 
A[N] := num; 
end; 
writeln();
writeln ('Самый большой нечетный элемент ' , A[j] , ' под номером ' , j ) ;
writeln('Массив после сдвига правой части:');
for i:=1 to N do 
write(A[i],' '); 
num := A[j-1];
for i:=1 to j-2 do 
A[j-i] := A[j-i-1]; 
A[1] := num; 
writeln();
writeln('Массив после сдвига левой части:');
for i:=1 to N do 
write(A[i],' '); 
end.
И может кто-то блок-схему начертить
Очень нужно,для отчета...

Последний раз редактировалось andrmerk; 13.12.2015 в 20:36.
andrmerk вне форума Ответить с цитированием
Старый 13.12.2015, 20:14   #2
andrmerk
Пользователь
 
Регистрация: 13.12.2015
Сообщений: 14
По умолчанию

Помогите кто-нибудь,пожалууууйстаааааааа
andrmerk вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевод нужен срочно помогите ) в течение 2 часов от Паскаля на Турбо СИ нужно помогите Жанибек Помощь студентам 14 01.04.2015 18:23
Помогите создать програму для роботы с файлами, пожалуйста помогите нужно очень срочно Сергей Человек Фриланс 3 06.07.2009 19:30
Помогите Помогите Пожалуйста Решить Одну Задачку в Паскале!!! VisTBacK Помощь студентам 6 19.09.2008 13:44


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS