Заданы две матрицы A3х3 и B4х4. Построить таблицу функций y=cx2+d при x є [0; 1] с шагом ∆х=0,1

[moto74]

1. Заданы две матрицы A3х3 и B4х4. Построить таблицу функций y=cx2+d при x є [0; 1] с шагом ∆х=0,1, где с-след матрицы А, а d- след матрицы В. Вычисление следа матрицы оформить в виде подпрограммы – процедуры.
2. Дана строка символов, среди которых есть одна скрывающаяся скобка. Вывести на экран все символы, расположенные внутри этих скобок.
3. Вычислить Z=(S1+S2)/2, где S1-сумма положительных элементов массива X(18);S2-сумма отрицательных элементов массива Y(15). Обе суммы вычислить в одной подпрограмме-функции.

[alex_fcsm]

Ваши наработки где?

[moto74]

1. След матрицы (NxN) - это сумма элементов главной диагонали.
Следовательно в цикле от 1 то N вычисляем его.
Function Sled(M:array...):real;
var i:integer;
s:real;
Begin
s:=0;
for i:=1 to n do
s:=s+M[i,i];
End;

[alex_fcsm]

Немножко можно подправить

const n=10;
var x:array[1..n,1..n] of real;

Function Sled(M:array[1..n,1..n] of real;y:integer):real;
var i:integer;
    s:real;
    
Begin
s:=0;
for i:=1 to y do
s:=s+M[i,i];
Sled:=s;
End;

Begin
//////
end.

Пробуйте дальше

[moto74]

А как насчёт двух других, СРОЧНО НАДО!!! PLEASE))

[alex_fcsm]

Эти все задачи решаются за полчаса. Просто подумайте. Если не получается выкладывайте код - подтолкнем в нужном направлении.

[moto74]

В этом и проблема, Что за код???

[alex_fcsm]

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

В этом и проблема, Что за код???

Решение ВАШЕ показывайте. Чтобы Вы сами что-то сделали, а не просто копипастили, тем более Вам это нужно.

[moto74]

2.
sum:=0;
for i:=1 to 18
begin
if x[i]>0 then
sum:=sum+x;
end;

sum1:=0;
for i:=1 to 15
begin
if y[i]<0 then
sum1:=sum1+x;
end;

z:=sum+sum1/2;

[alex_fcsm]

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

2.
sum:=0;
for i:=1 to 18
begin
if x[i]>0 then
sum:=sum+x;
end;

sum1:=0;
for i:=1 to 15
begin
if y[i]<0 then
sum1:=sum1+x;
end;

z:=sum+sum1/2;

Вы хотите сказать что это будет компилироваться?

const n=20;

var x,y:array[1..n] of real;
    s1,s2:real;

procedure Count(x,y:array[1..n] of real;a,b:integer;var m1,m2:real);
var i:integer;
begin
m1:=0;
for i:=1 to a do
if x[i]>0 then
m1:=m1+x[i];
s2:=0;
for i:=1 to b do
if y[i]<0 then
m2:=m2+y[i];
end;

begin
Count(x,y,18,15,s1,s2);
end.

Осталось проинициализировать массивы и выполнить сложение(s1+s2)/2