|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
02.06.2011, 21:17 | #1 |
Пользователь
Регистрация: 31.05.2011
Сообщений: 19
|
ОШИБКА
Дан массив размера N и целое число K (1 · K < N). Осуществить
сдвиг элементов массива вправо на K позиций (при этом A1 перейдет в AK+1, A2 — в AK+2, : : :, AN¡K — в AN, а исходное значение K последних элементов будет потеряно). Первые K элементов полученного массива положить равными 0. program z13; var a:array[1..100]of integer; i,n,k,j:integer; begin writeln ('Введите размер массива'); readln (n); writeln ('Задайте число сдвига'); readln (k); for i:=1 to n do begin writeln ('Введите ',i,'элемент массива'); readln (a[i]); end; write ('Исходный массив'); for i:=1 to n do begin write (a[i],' '); end; for i:=1 to k do begin if i<=k then a[i]:=0 end; for j:=n downto k-1 do begin a[j]:=a[j+k]; a[k]:=0;end; writeln; write ('massiv posle sdviga '); for i:=1 to n do begin write(a[i],' '); end; readln; end. Последний раз редактировалось Абай; 03.06.2011 в 15:25. |
02.06.2011, 21:39 | #2 | |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
И в чем или где ошибка? Вы думаете у всех в мозг встроен компилятор Паскаля?
Цитата:
И используйте тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Nero - ошибка драйвера DMA. ошибка CRC | NecRoMat | Софт | 5 | 09.05.2012 01:29 |
Ошибка run-time Error 1004 общая ошибка ODBC | kaval88 | Microsoft Office Excel | 0 | 27.02.2011 20:20 |
Ошибка в коде, ошибка в css или это проблема с совместимостью с браузерами? | ankris | HTML и CSS | 5 | 23.11.2010 16:58 |
Это ошибка Delphi или моя ошибка??? | bloodeagle | Общие вопросы Delphi | 3 | 12.11.2009 15:26 |
...Ошибка 101 (net::ERR_CONNECTION_RESET): Неизвестная ошибка... | infrared | Помощь студентам | 0 | 16.04.2009 17:44 |