яу пасоны айм нид хелп)
первый раз обращаюсь))
просто практика была а меня последние дни не было (права получал) нужно отчёт захуярить...... дали задачи на паскале....
а все делать самому нереал да и мозгов не хватит)

3)Составить программу вычисления значения функции y вычисления суммы этих значений если аргумент х изменяется от a до b с шагом h.
Y= значение функции; а= -4; b = 20; h = 1,3;


1)Составить программу подсчёта суммы положительных элементов одномерного массива
2,8; 3,14; -0,5; 2,361;-2452;3,1;
На экран вывести результат и исходные данные.


5) составить программу которая вычисляет в зависимости от порядкового номера месяца (1,2…12) выводит на экран количество дней в этом месяце.
Год не высокосный
Год высокосный


7) найти периметр фигуры ABCD по заданным сторонам AB AC DC. (определить функцию для расчета гипотенузы прямоугольного треугольника по его катетам)
Угол BAC= 90 градусов угол BCD = 90 градусов


8) Составить программу ввода массива G (M,N) и формирование другого массива Т(M,N) в котором все элементы равны кубу соотв. Элеменов массива G

9) Написать рекурсивную функцию для вычисления факториала натурального числа n.


яп кому не сложно помогите сделать эти.... остальные сам сделаю там легче да и еще всё офомлять и блок схем лепить

uses crt;
const k=6;
var a:array[1..k] of real;
i,n:integer; s:real;
begin
clrscr;
s:=0;
for i:=1 to k do
begin
writeln('введите ',i,' элемент ');
readln(a[i]);
if a[i]>0 then s:=s+(a[i]);
end;
for i:=1 to k do
begin
writeln(a[i]:3:3);
end;
writeln('сумма положительных элементов массива = ',s:3:4);
readln;
end.