Автор Тема: Помогите пожалуйста....  (Прочитано 4563 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Анастасия

  • Гость
Помогите пожалуйста....
« : Апреля 01, 2007, 05:59:48 pm »
Мне нужно сдать любые 12 задач из следующих 15. Буду очень признательна :)
1) Дан массив размера N. Вывести его элементы в обратном порядке.
2) Заменить все положительные элементы целочисленного массива размера 10 на значение минимального.
3) Дан массив размера 10. Переставить в обратном порядке эелементы массива,расположенные между его минимальным и максимальным элементами.
4) Дан массив размера N. Осуществить циклический сдвиг элементов массива влево на одну позицию.
5) Дан массив размера N. Осуществить циклический сдвиг элементов массива вправо на к-позиций (число вводиться с клавиатуры).
6) Дан целочисленный массив размера N. Удалить из массива все элементы, встречающиеся не менее двух раз(один).
7) Дан целочисленный массив размера N. Удалить из массива все элементы, встречающиеся более двух раз.
8) Дан массив размера N. Преобразовать его,вставив перед каждым отрицательным элементом нулевой элемент.
9) Даны два массива А и В размера 5, элементы которых упорядочены по возрастанию. Объединить эти массивы так, чтобы результирующий массив остался упорядоченным.
10) Дан массив размера N. Вывести индексы массива в том порядке, в котором соответствующие им элементы образуют убывающую последовательность.
11) Дана точка А и множество В из N точек. Найти номер точки из множества В, наиболее близкой от точки А.
12) Дан целочисленный массив размера N. Назовем серией группу подряд идущих одинаковых элементов, а длиной серии - количество этих элементов (длина серии может быть равна 1). вывести массив, содержащий длины всех серий исходного массива.
13) Дан целочисленный массив размера N. Вставить после каждой серии нулевой элемент.
14) Дано число k и целочисленный массив размера N. Удалить из массива все элементы, значения которых кратны числу k.
15) Дан массив размера N. Найти количество его минимумов.

Оффлайн IceBeerG

  • Коллежский регистратор
  • *
  • Сообщений: 14
  • Репутация: 0
  • Пол: Мужской
Re: Помогите пожалуйста....
« Ответ #1 : Апреля 02, 2007, 12:11:50 am »
#1
Код: (pascal) [Выделить]
uses crt;
var a:array[1..10] of integer;
    i, n:integer;
begin
clrscr;
n:=10;
for i:=1 to 10 do
    begin
         a[i]:=n;
         n:=n-1;
         write(a[i], ' ');
    end;
readln;
end.
=============================
#2
Код: (pascal) [Выделить]
uses crt;
var a: array[1..10] of integer;
    i, n, min, num_min: integer;
begin
clrscr;
       writeln('massiv:');
       for i:=1 to 10 do
           begin
                write('#', i,': ');
                readln(a[i]);
           end;
       min:=a[1];
       for i:=2 to  10 do
       begin
           if a[i] < a[1] then
              begin
                   min:=a[i];
              end;
           if a[i] > 0 then
              begin
                   a[i]:=min;
              end;
       end;
       write('min= ', min);
       read(min);
              for i:=1 to 10 do write(a[i], ' ');
              read(a[i]);
end.
================================
остальные задачки аналогичные....
если надо то вышлю на мыло, так проще..

Модератор: заключайте код в параметр code
« Последнее редактирование: Апреля 02, 2007, 04:24:21 pm от Veliant »

Анастасия

  • Гость
Re: Помогите пожалуйста....
« Ответ #2 : Апреля 02, 2007, 06:01:18 pm »
Ой, спасибо огромное. Пожалуйста, вышлете на мыло остальные. заранее ОГРОМНОЕ спасибо.

Оффлайн IceBeerG

  • Коллежский регистратор
  • *
  • Сообщений: 14
  • Репутация: 0
  • Пол: Мужской
Re: Помогите пожалуйста....
« Ответ #3 : Апреля 02, 2007, 06:55:13 pm »
во-первых кокое мыло?
Во-вторых стучи в асю(242963819)...так удобнее=)

Анастасия

  • Гость
Re: Помогите пожалуйста....
« Ответ #4 : Апреля 02, 2007, 08:52:23 pm »
ну вот, стучусь - стучусь, а все молчат))

Оффлайн dr. F.I.N.

  • Титулярный советник
  • ****
  • Сообщений: 169
  • Репутация: 4
  • Пол: Мужской
Re: Помогите пожалуйста....
« Ответ #5 : Апреля 03, 2007, 04:01:09 pm »
199299000 - хороший человечек :) в беде не оставит...стучись...ответит (только после 20:00 по Новосибу - работа :( )
Чтобы задавать вопросы, нужно для начала что-нибудь знать....