1.Циклы.Ветление. 2.Массивы

[vatakat]

Доброго времени суток! Помогите пожалуйста решить две задачки в паскале

1. Циклы. Ветвление.
Для заданных N чисел просуммировать только те, которые по модулю больше 5.

2. Массивы.
В заданном двумерном массиве, отсортировать по убыванию 2 и 4 строки.
(сделать сортировку подпрограммы)

[danekne]

summa=0
1) for :=1 to n do
begin
if ABS(a[i])>5 then
summa=summa+a[i]
end;

2) что такое сортировка подпрограммы? Каким методом сортировать?

[vatakat]

Спасибо большое за решение первой задачи!=)

Я даже без понятия, что за сортировка..просто препод так сказал) если можешь, то тогда реши без неё.

[vatakat]

Актуально!

[Sparkman]

Сообщение от vatakat

Актуально!
2. Массивы.
В заданном двумерном массиве, отсортировать по убыванию 2 и 4 строки.
(сделать сортировку с помощью подпрограммы)

как то так:

const n=4;
// n - размер квадратного массива
var mas : array [1..n,1..n] of integer;
// mas - заданный двумерный массив
    tmp : array [1..n] of integer;
// tmp - временный одномерный массив
    i,j : integer;
// i,j - счетчики
procedure sort(var InM : array of integer);
// подпрограмма сортировки
var k,l,temp:integer;
// k,l - счетчики
// temp - переменная для чисел
begin
// сортировка одномерного массива методом перебора
     for k:=0 to n-1 do
     for l:=0 to n-1 do
     if k<l then
     begin
          if InM[k]<InM[l] then
          begin
               temp := InM[k];
               InM[k] := InM[l];
               InM[l] := temp;
          end;
     end else
     if k>l then
     begin
          if InM[k]>InM[l] then
          begin
               temp := InM[k];
               InM[k] := InM[l];
               InM[l] := temp;
          end;
     end;
end;
// начало основного кода программы
BEGIN
// инициализируем генератор псевдослучайных чисел
     randomize;
     writeln('Massive:');
// заполняем двумерный массив псевдослучайными числами от 0 до 9
     for i:=1 to n do
     begin
          for j:=1 to n do
          begin
               mas [i,j]:=random(9);
               write(mas[i,j]);write(' ');
          end;
          writeln;
     end;
     writeln;

// присваиваем вторую строку двумерного массива mas в одномерный массив tmp
     for i:=1 to n do
     tmp[i]:=mas[2,i];

// вызываем процедуру сортировки
     sort(tmp);

// обратно присваиваем значения отсортированного одномерного массива tmp во вторую строку mas
     for i:=1 to n do
     mas[2,i]:=tmp[i];

// присваиваем четвертую строку двумерного массива mas в одномерный массив tmp
     for i:=1 to n do
     tmp[i]:=mas[4,i];

// вызываем процедуру сортировки
     sort(tmp);

// обратно присваиваем значения отсортированного одномерного массива tmp в четвертую строку mas
     for i:=1 to n do
     mas[4,i]:=tmp[i];

// выводим результат
     writeln('Result:');
     for i:=1 to n do
     begin
          for j:=1 to n do
          begin
               write(mas[i,j]);
               write(' ');
          end;
          writeln;
     end;
     writeln;
     readln;
END.

[vatakat]

спасибо больше! очень благодарен =)

а кто-нибудь сможет объяснить вкратце как это всё решается или это вкратце не получиться?

[Jakethefish]

Сортировка с помощью подпрограммы - пишешь для сортировки отдельную функцию.

http://ru.wikipedia.org/wiki/%D0%90%...B2%D0%BA%D0%B8
Тут описаны алгоритмы. Для начала посмотри пузырьковую сортировку и те алгоритмы, которые на ней основаны.
Вот тут интересная ссылочка:
http://www.sorting-algorithms.com/

[Sparkman]

Сообщение от vatakat

а кто-нибудь сможет объяснить вкратце как это всё решается или это вкратце не получиться?

добавил комментарии к коду

[vatakat]

ВСЕМ ОГРОМНОЕ СПАСИБО!=)