Помогите в написании пожалуйста:

[SViRT]

Доброго времени суток.

У меня к вам небольшая просьба,не могли бы вы мне помочь в написании двух программ и БЛОК-СХЕМЫ к ним,вот первая задача:

1.
Действия:переписать подряд в массив Y положительные элементы X

Массив: x(20)

Условие:-10<= x(с индексом i)<=5

Вот начал писать,а как дальше не знаю:

Program L2;
uses crt;
Var
x:array (1..20) of integer;
y:array (1..5) of integer;
z:integer;
Begin
clrscr
for z:=1 to 20 do
x[x-]:=

Помогите пожалуйста дорешать и построить блок-схему.

Вторая задача:

2.
Матрица z(4,6)

Действие:Упорядочить по убыванию элементы каждого столбца матрицы.Вывести на экран исходную и полученную матрицы в общепринетом виде.

Условие: -5<=z(с индексом i и j)<=15.

Вот с этой задачей вообще не понял что делать

Помогите пожалуйста её решить и тоже построить блох-схему.
Заранее очень сильно благодарен.

[-=<[Evklidd]>=-]

Вот начал писать,а как дальше не знаю:

Program L2;
uses crt;
Var
x:array (1..20) of integer;
y:array (1..5) of integer;
z:integer;
Begin
clrscr
for z:=1 to 20 do
x[x-]:=

Помогите пожалуйста дорешать и построить блок-схему.

Хм, дорешивать тут конечно по сути нечего - вы и не начинали решать...
Какому элементу массива x вы здесь

x[x-]:=

собираетесь присваивать значение?! И почему например массив y должен обязательно состоять только из 5 элементов

y:array (1..5) of integer;

?!
Вот возможный вариант решения вашей первой задачи, постарайтесь понять его:

program pro40;
uses
 Crt; 
var
 x, y: array [1..20] of integer; {два массива - исходный и который будем получать}
 i, j: byte; {счетчики элементов массива}
begin
 ClrScr;
 writeln('Vvedite massiv X iz 20 chisel v diapozone [-10;5]');
 writeln('I programma sozdast massiv Y, sosto9zhii iz polozitelnux elementov massiva X');
 readln;
 j:= 1;
 for i:= 1 to 20 do {цикл по 20 элементам массива X}
  begin
   repeat
    begin
     write(i, '-ui element([-10;5]): ');
     readln(x[i]);{считываем очередной элемент массива X}
    end;
   until (x[i] >= -10) and (x[i] <= 5);{проверяем входимость элемента в заданный диапазон, если нет - повторяем запрос}
   if x[i] > 0 then {если элемент массива X положителен, то}
    begin
     y[j]:= x[i];{присваиваем элементу массива Y значение элемента массива X}
     inc(j);{увеличиваем счетчик элементов массива Y}
    end;
  end;
 writeln('poluchivshis9 massiv: ');
 for i:= 1 to j-1 do {цикл по всем элементам массива Y} 
  writeln(i, '-ui element: ', y[i]);{вывод текущего элемента массива Y}
 readln;
end.

[SViRT]

первую я решил за это время =)
var
X, Y : array [1..20] of Integer; {оба массива одинакового размера, т.к. не знаем сколько положительных элементов}
j,k : Integer; {индексы массивов}

begin
Randomize;
for j := 1 to 20 do x[j] := Random(16) - 10; {заполнение массива Х числами в диапазоне [-10;5]}

for j := 1 to 20 do Write(x[j]:3); {вывод массива для проверки}
WriteLn;

k := 0; {индекс элементов массива Y}
for j := 1 to 20 do
if x[j] > 0 then begin
k := k +1;
y[k] := x[j];
end;
for j := 1 to k do Write(y[j]:3);
ReadLn;
end.
помогите мне пожалуйста со второй задачей и с построением блок -схемы к обеим задачам,пожалуйста.

[-=<[Evklidd]>=-]

У вас задание отсортировать каждый столбец матрицы, каждый из которых является одномерным массивом. Поэтому вам надо для начала описать процедуру сортировки линейного массива по убыванию, а затем в цикле пройтись по всем столбцам матрицы, передавая столбец матрицы как параметр функции сортировки массива. В чем конкретно у вас проблема?

[SViRT]

Сообщение от -=<[Evklidd]>=-

В чем конкретно у вас проблема?

Проблема у меня в том,что я совершенно не умею писать блок-схемы,даже к написанной программе. =(

[-=<[Evklidd]>=-]

Так, подождите, во второй программе про матрицы уже нет вопросов к коду, только к блок-схеме?

[SViRT]

Вторую программу я не смог написать,я её не понимаю просто =( а блок-схемы нужны к обеим задачам.

[-=<[Evklidd]>=-]

Все непонятно?! Вы знаете что такое массивы, как с ними работать, как написать хотя бы один вид сортировки массива?

[SViRT]

Нихрена я не знаю,нуб я в паскале ПОЛНЫЙ причём,и это печально =(((

[-=<[Evklidd]>=-]

Так, ну тогда надо почитать литературу по Паскалю, благо таковая имеется. Смотрите прикрепленную тему "Полезная литература.Паскаль" в этой ветке, выбирайте самоучитель, скачивайте и читайте.