помогите решить задачи на массив в паскале

[Balashovec]

Помогите пожалуйста решить задачки на массив в паскале :
1.Протабулировать в массив функцию y=x*x+sinx,где x принадлежит [-2,3],дельта x=0.2.Найти экстремальные значения и подсчитать сколько раз функция принимала MIN значения.
2.Найти сумму четных элементов массива целых чисел.Размерность массива - 20.Заполнение массива осуществить случайными числами от 100 до 200.
3.В одномерном массиве заменить все нулевые элементы единицами.
4.Заданы два одномерных массива A и B,состоящие из произвольного числа элементов.Сформулируйте массив C, содержащий элементы обоих массивов,расположенные в порядке убывания
Заранее благодарю,я новичёк пишите пожалуйста программу полностью..........ещё раз всем спасибо будет за участие..

[RamireZ]

2 задача

//Надеюсь разберешься,что к чему,тут и думать то нечего
Program Two;
const n=20;
var
a:array [1..n] of integer;
i,sum:integer;
begin
randomize;
for i:=1 to n do
begin
     a[i]:=random(100)+100;
     write(a[i],' ');
end;
writeln;
for i:=1 to n do
if (a[i] mod 2)=0 then
sum:=sum+a[i];
writeln('Summa=',sum);
end.

в 3 задаче массив как,произвольно заполнять или самому?,если надо-напишу потом
Остальные неохото решать,эти так,на скорую руку...

[Balashovec]

спасибище...

[Balashovec]

в 3 произвольно заполнять

[RamireZ]

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

в 3 произвольно заполнять

Program three;
const n=20;
var
a:array [1..n] of integer;
i,sum:integer;
begin
randomize;
for i:=1 to n do
begin
     a[i]:=random(2);
     write(a[i],' ');
end;
writeln;
for i:=1 to n do
begin
if a[i]=0 then
a[i]:=1;
write(a[i],' ');
end;
end.

Примерно вот так,там размерность меняй и случайные числа (по желанию)...
Можешь и отзыв кинуть

[Balashovec]

я тебе уже кинул отзыв