массив

[aselinochka]

помогите решить задачу

1. дано целое число К и набор ненулевых целых чисел;признак его завершения - число 0. вывести номер первого числа в наборе, большего К. если таких чисел нет, то вывести " таких чисел нет".

2. дана квадратная целочисленная матрица D порядка М, заполненная случайными числами в диапазоне от 10 до 99. вывести матрицу D и элементы главной диагонали данной матрицы.

3. дан массив размера N ненулевых случайных целых чисел. найти индексы тех элементов массива, которые больше своего левого соседа, и количество таких элементов. найденные индексы выводить в порядке убывания.

[p51x]

ваши попытки решения?

[Urost]

Помогите решить задания
Задача 1:
Дана последовательность действительных чисел а1, а2, … аn. Выяснить, будет ли она возрастающей.
Свое решение:

 program lab51;
var n:integer; a:array[1..n] of integer;i:integer;
  begin
  randomize;
  for i:=1 to n do
  a[i]:=random(n);
   for i:=2 to n do
   if a[i]<a[i+1] then
   writeln('da');
   else
   writeln('Het');
   end;
   end.

Задача 2:
Последовательность a1, a2, … , an состоит из нулей и единиц. Поставить в начало этой последовательности нули, а затем единицы.
Свое решение:

program ll;
const n=100;
var a:array[1..n] of integer; nmin,i,buf:integer;
 begin
 randomize;
 for i:=1 to n do
 a[i]:=random(2);
 for i:=1 to n-1 do
  begin
  nmin:=i;
  for i:=i+1 to n do
  if a[i]<a[nmin] then nmin:=i;
   begin
   buf:=a[i];
   a[i]:=a[nmin];
   a[nmin]:=buf;
   end;
   end;
   writeln(a[i],' ');
   for i:=1 to n do
   write(a[i]:6);
   end.

Если лень писать все решение, то подскажите, какими командами можно сгруппировать элементы матрицы(как в задаче 2), чтобы получить ответ, а так надеюсь на целое решение.Спасибо


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Alex11223]

Последовательность a1, a2, … , an состоит из нулей и единиц. Поставить в начало этой последовательности нули, а затем единицы.

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

[Urost]

Пытался найти что-то более-менее понятное в инете и не нашел:все примеры написаны как-то непонятно(непонятны они, ясен пень, из-за отсутствия моего опыта в этом деле).
Задача 2:
Последовательность a1, a2, … , an состоит из нулей и единиц. Поставить в начало этой последовательности нули, а затем единицы.
Мое решение(если можно это так назвать):

program sortarr;
   const n=100;
   var
   a : array[1..n] of integer;
   i:integer;
	        begin
		randomize;
		for i:=1 to n do
                a[i]:=random(2);
                for i:=1 to n do
		write(a[i]);
                end.

Вопрос: Выводится на экран, как и надо, рандомная последовательность нулей и единиц, но что писать после второго *for i:=1 to n do*, чтобы начать сортировку вначале нули, потом единицы?..Чтобы отсортировал по возрастанию
Еще 1 вопрос:вот эта строка *for i:=1 to n do* это, как я понимаю, счетчик и он*проходит* по всем элементам массива от 1 до n и делает заданное действие после слова *do*?Тогда если убрать *for i:=1 to n do* после *a[i]:=random(2);* программа будет выводить по 1 элементу на экран, а не 100, почему, если он уже прошелся по всем элементам от 1 до n и присвоил значение *a[i]:=random(2);*?
Благодарю!

[Alex11223]

Не понял вопрос. Если убрать цикл, то выведется один элемент (с номером i).
Вот пример сортировки пузырьком из википедии.

for i:=n-1 downto 1 do {n - размер массива M[]}
    for j:=1 to i do
        if M[j]>M[j+1] then 
            begin
               tmp:= M[j];
               M[j]:= M[j+1];
               M[j+1]:= tmp;
            end;

Или не понятен сам принцип ее работы? Много раз (это один их самых медленных алгоритмов сортировки) проходим массив и если текущее число больше\меньше (сортировать по возрастанию или убыванию) следующего (поэтому циклы до размер массива-1, чтобы не выйти за границы массива) , то меняем их местами. Как-то так.

[Urost]

Что такое *tmp*?

[Alex11223]

Переменная того же типа, что и массив (т.е. если array of integer, то integer). Если очень надо, то можно обойтись без нее. Там просто меняются местами текущий и следующий элемент.