написать прогу в паскале

[Максиак]

Ввести массив R из 5 элементов.Сформировать матрицу А 5х5 по формуле
1+sin(1.5i+j) если i>j
1-sin(1.5i+j) иначе
Выделить в вектор Р элементы главной диагонали матрицы А и,используя подпрограммы ,упорядочить Р. Вычислить S=RxP и матрицу B=SxA.
используя подпрограмму вычислить D>A+B.
Тип S упорядочить вектор А из N элементов по возрастанию методом "пузырька".
2)Сложение матриц.

[ROMA2PVT]

хвались наработками.

[Максиак]

что? не понял)

[ROMA2PVT]

что вы пытались сделать из этих заданий.И тогда вам помогут.

[Ol'ga_new]

Вот начало попробуй дописать сам, если не получится пиши:

var 
  r,p:array[1..5]of real;  
  a:array[1..5,1..5]of real;
  i,j:integer;
begin
writeln('введите элементы массива:');
for i:=1 to 5 do
  read(r[i]);
for i:=1 to 5 do
for j:=1 to 5 do
 if i>j then
  a[i][j]:=1+sin(1,5*i+j) else
  a[i][j]:=1-sin(1,5*i+j)
for i:=1 to 5 do
  p[i]:=a[i][i];
end.

[Максиак]

не хочет работать)))паника

[Ol'ga_new]

Это только начало я же написала! Вывод данных здесь не организован вообще. Сделано до: " и,используя подпрограммы ,упорядочить Р...", если хочешь просмотреть матрицу или вектор добавь цикл с выводом(write)

[Максиак]

а можно полностью пожалуйста,а то я в программировании ваще не бум бум)