Задачи, Массив(процедура), робота со строками. Опции

[Sav93]

Зравствуйте, помогите решить 2 задачи, на завтра задали 6ЛБ, а я никак не успеваю.

1.Дано текст, в котором содержится хоть одно двоеточие. Получить символы, размещенные между первым и вторым двоеточием (если второе двоеточие отсутствует - до конца текста)

2.Дана матрица A nxn. Получить матрицу B nxn, елементы которой вычисляются за формулой:
b(ij)= знак системы
a(ij), при j>=i,
a(ij), при j<i.
Для ввода и вывода элементов матриц составить процедуры, обеспечивающие ввод и вывод элементов в виде таблицы.
Буду очень благодарен!

Спасибо!

[Sav93]

Я просто не знаю...Допустим задана матрица А

 Program Massiv2;
Uses Crt;
Var a: array [1..50,1..50] of real;
    i,j,n: byte;
BEGIN
clrscr;
write ('   N='); readln (n);
writeln ('   Enter the elements of massive A:');
for i:=1 to n do
for j:=1 to n do
begin
  write ('   A[',i,',',j,']='); readln (a[i,j])
end; 

Как правельно теперь задать матрицу В за формулой? сама структура программы как должна выглядеть?

Сообщение отредактировано: Sav93 - 22.12.2010 0:31