Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.05.2012, 17:13   #1
Артем4ик
Новичок
Джуниор
 
Регистрация: 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.
Вложения
Тип файла: zip Documents.zip (1.04 Мб, 8 просмотров)
Артем4ик вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
определить количество четных чисел и количество нечетных чисел массива, которые вводятся в МЕМО, вывести в поле компонента 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