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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

Ввести одномерный целочисленный массив 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
Репутация: 10
По умолчанию

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

Опции темы

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


19:55.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.