Задача на циклы и на массивы

[Элис]

Всем привет
одну я почти решила,а вторую помогите решить
заранее благодарна

Задачи по программе Паскаль
1.Написать программу табулирования функции y=f(x) для аргумента,что меняется на интервале хє[a,b] c заданым шагом h.

(вложение)

моё решение

program Primer2;
const m=4;
var k,h,x,p,y:real;
n:integer;
begin
writeln ('x':10,'y':10);
x:=0; h:=0.2;
p:=1;
while x<=m+h/2 do
begin
if x>2 then
for n:=1 to 5 do
begin
k:=sqrt(n+x)/n;
y:=p*k;
end;
if x<=2 then
begin
y:=ln(2*sqr(x)+5)+3*sqr(sin(x));
writeln (x:10:2,y:10:2);
x:=x+h;
end;
readln;
end;end.

2.Дано массив A(N). Построить массив С из позитивных элементов заданого массива А и упорядочить массив С в порядке убывания.

[fbus]

а в чем собственно загвоздка?
1. перемещаешь положительные элементы из A в C (в цикле от 0 до N-1)
2.Используешь алгоритм быстрой сортировки для массива С

Массив С создаешь динамическим.

[Элис]

загвоздка в том,что такое быстрая сортировка и как это динамический массив?)

[Sazary]

Сообщение от Элис

и как это динамический массив?)

Если вы спрашиваете, значит врядли это вам сейчас нужно )
Используйте обычный статический массив.

что такое быстрая сортировка

http://ru.wikipedia.org/wiki/Быстрая_сортировка
Если не очень понятно, то используйте любой друго тип сортировки, какой вам больше нравится.

[Элис]

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

program Primer3;
var A,С: array [0..N-1] of real;
s:real;
i:integer;
begin
writeln;
for i:=0 to N-1 do read (A[i]);
s:=0;
for i:=0 to N-1 do if A[i]>0 then s:=s+A[i];

[Sazary]

uses crt;
const MAXN=100;
var N,i,j,k,tmp,t : integer;
A,C : array[1..MAXN] of integer;
begin
clrscr;
write('Enter N: ');
readln(N);
for i:=0 to N-1 do
 readln(A[i]);

{ заполняем массив C }
k := -1;
for i:=0 to N-1 do
 if A[i]>0 then
  begin
  inc(k);
  C[k] := A[i];
  end;
{ сортируем C - сортировка выбором }
for i:=0 to k-1 do
 begin
 t := i;
 for j:=i+1 to k do
  if C[j]<C[t] then t := j;
 tmp := C[i];
 C[i] := C[t];
 C[t] := tmp;
 end;
{ выводим }
writeln('Massiv C:');
for i:=0 to k do
 write(C[i],' ');

readln;
end.

[Элис]

clrscr; это оператор?)
inc(k); скажите,а это что?)
код загрузила в Турбо Паскаль-нашло ошибку clrscr;
пишет неправельный индэтифаер...

[Sazary]

clrscr; это оператор?)

Это процедура очистки экрана.

inc(k); скажите,а это что?)

Инкремент. Равносильно записи

k := k + 1;

код загрузила в Турбо Паскаль-нашло ошибку clrscr;

А вы uses crt; написали в начале?

[Элис]

Да,спасибо уже написала,но теперь выдает ту же ошибку,но в другой строке
readln(A[i]);

[Sazary]

Да,спасибо уже написала,но теперь выдает ту же ошибку,но в другой строке
readln(A[i]);

Что за ошибка. Вы наверняка что-нибудь затерли. Скопируйте листинг заново.