Массив и символьная строка. Pascal

[alina777]

Здравствуйте! Рассчитываю на вашу помощь в решении двух задач:

1) Дан двумерный массив размером 3*3. Получить новый массив путем увеличения каждого из элементов массива в 2 раза.

2) Символьная строка содержит К символов. Составьте новую символьную строку, содержащую те же символы, однако символы "+" и "4" запишите трижды.

Заранее благодарю.

[Naeel Maqsudov]

2)
S1 - исходная строка, S2 - результат

Код: Выделить всё

K:=length(S1);
S2:='';
for i:=1 to K begin
  S2:=S2+S1[i]; 
  if (S1[i]='+') or (S1[i]='4') then S2:=S2+S1[i]+S1[i];
end;

[Хыиуду]

1
for i:=1 to 3 do
for j:=1 to 3 do
a[i,j]:=2*a[i,j]

[alina777]

Большое спасибо!!!

[derhummel]

Здравствуйте помогите плиз с массивами:
ТЕМА 9.
Вычислить y=x1+x1x2+x1x2x3+...+x1x2x3...x m , где m - либо номер первого отрицательного элемента массива x, либо число n, если в массиве x нет отрицательных элементов.
ТЕМА 14.
Даны: целое число n, действительные числа b1,b2...bn.
Выяснить, имеется ли в последовательности пара чисел сумма квадратов которых равна квадрату суммы их значений. Если такая пара существует, то вывести ее , если нет, то выдать соответствующее сообщение.

[Хыиуду]

1.

Код: Выделить всё

y:=x[1];
a:=x[1];
for i:=2 to n do
begin
  a:=a*x[i];
  inc(y,a);
  if x[i]<0 then break;
end;

2. for i:=1 to n do
if b=0 then begin
writeln('Пара существует, все числа с нулем, учим математику 8 класса!');
break;
end;

[derhummel]

спасибо! Буду терь писать программу)