Массивы

[Pandemona18]

Добрый вечер.

11.203. Дан массив. Поменять местами:
а) второй и пятый элементы;
6) m-й и n-й элементы;
в) третий и максимальный элементы. Если элементов с максимальным значением несколько, то в обмене должен участвовать первый из них;
г) первый и минимальный элементы. Если элементов с минимальным значением несколько, то в обмене должен участвовать последний из них.

11.209. В массиве записана информация о стоимости каждого из 20 видов товара, продаваемых фирмой. С 1 января очередного года фирма прекращает продавать товар, стоимость которого записана в и I- oм элементе массива. Получить массив со стоимостью всех оставшихся видов товара.

11.215. Удалить из массива:
а) все отрицательные элементы;
6) все элементы, большие данного числа N;
в) все элементы, начиная с n1-го по n2-й (n1 <= n2).

11.220. В массив записали информацию о высоте над уровнем моря двадцати горных вершин мира. Данные записаны в алфавитном порядке названий вершин. После этого решили ввести в массив сведения еще по одной вершине. Получить новый массив, имея в виду, что место в массиве для записи дополнительной информации известно.

11.225. Данные о росте 25 учеников класса, упорядоченные по убыванию, записаны в массиве. В начале учебного года в класс поступили два новых ученика. Получить аналогичный массив, учитывающий рост новых учеников.

Благодарю зарание большое спасибо.

[rubius2008]

11.203.a

x:=a[2];
a[2]:=a[5];
a[5]:=x;

аналогично, почти остальные

[phomm]

Вам решить платно или исправить Ваш код ?

Как надо писать просьбы http://programmersforum.ru/showthread.php?t=142379

[as.ut]

Приветствую всех программистов ! . Посмотрите пожалуйста в чём у меня ошибочка тут , ну ни как нормально работать не хочет .....
Задан массив ( var a:array[1..n] of '0'..'9'; ) Определить входит ли в него последовательность символов 123 , если да , то сколько и с каких позиций.

program mass;
uses crt;
var
a:array[1..100] of integer;
n,i,k:integer;
begin
clrscr;
write('‚Введите в массив ',n,' элементов цифр:');
readln(n);
for i:=3 to n do
begin
write('a(',i,')=');
readln(a[i]);
end;
writeln('Номера позиций вхоэжения последовательности 123:');
k:=0;
if (a[i]=1)and(a[i+1]=2)and(a[i+2]=3) then
begin
k:=k+1;
write(i,'');
end;
writeln;
if k=0 then
writeln('Это последовательности в массиве нет')
else
writeln('Последовательность 123 входит ',k,' рз.');
readln;
end.

выдаёт при любом раскладе что такой последовательности не существует , а при изменении k на любое число ( k:=2 или так далее ) то пишет количество , какое указано в k , то есть двум ..

[phomm]

оно не может хотеть нормально работать, машины вообще не умеют ничего хотеть... они просто исполняют, то что задано, поэтому не надо говорить, что не хочет работать, надо говорить - что делается не так ?

и, собственно, Вы в курсе, что это не Ваша тема ? Создавайте свою, и код оформляйте по правилам, с помощью кнопочки #