|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.05.2012, 17:13 | #1 |
Новичок
Джуниор
Регистрация: 18.05.2012
Сообщений: 1
|
массивы замена нечетных чисел и удаление
Внизу прикрепил всю лабораторную в формате "майкрософт ворд"
Задание №1 (3В) в массиве все элементы правее которых стоит нечетное значение, заменить на 0 Пример: из массива А[5]:13456 должен получиться массив A[4] 03056 Задание №2 (3С) Из массива удалить последний из нечётных элементов Пример: из массива А[5]:13456 должен получиться массив A[4] 1346 Можно исправить готовую программу, только не знаю как: Program SimpleProcedureExample; Const maxN=20; Type IndexEl=1 .. maxN; arrInt=array[IndexEl] of integer; var A:arrInt; N:integer; I:IndexEl; IndMin:IndexEl; procedure ReadArray; begin repeat write('Vvedite n:'); readln(n); until (n>=1) and (n<=maxN); for i:= 1 to n do begin write('a{',i,'}='); readln(a[i]); end; end; procedure FindIndMin; begin indMin:=1; for i:=2 to n do if A[i]<A[indMin] then Indmin:=i; end; procedure DeleteMin; begin for i:=indMin to n-1 do A[i]:=A[i+1]; dec(n); end; procedure PrintArray; begin writeln; for i:=1 to n do write(A[i]:3); writeln; end; begin ReadArray; FindIndMin; DeleteMin; PrintArray; end. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
определить количество четных чисел и количество нечетных чисел массива, которые вводятся в МЕМО, вывести в поле компонента Edit. | Pyxy | Помощь студентам | 2 | 21.03.2012 23:24 |
Как вычислить произведение нечетных чисел | StoneGod | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 13.09.2011 22:34 |
мформировать последовательность из нечетных чисел | Julila | Помощь студентам | 14 | 09.01.2011 23:56 |
Найти сумму положительных нечетных чисел меньше 50 | мандаринка | Паскаль, Turbo Pascal, PascalABC.NET | 8 | 22.12.2007 21:45 |