Turbo Pascal

[Maliish]

Буду очень признательна если решите задачку!

50. const n =...;
type vector = array [1..n] of real;
var a,b,c,d: vector;
Пусть процедура sum(x,y,z) присваивает вектору z сумму векторов x и
y. Описать данную процедуру и использовать ее для вычисления
d = a + b + c.

[Maliish]

Есть задачки ниже представленные, кому помогла, то очень рада!

[Maliish]

Дана строка из строчных латинских букв. Напечатать первые вхождения букв в текст, сохраняя их исход-ный взаимный порядок.

Код программы:
var
let : set of 'a'..'z';
s : string; c : char; i : integer;
begin
let:=[ ]; {множество букв в рассмотренной части текста}
readln(s);
i:=1;
while s[i]<>'.' do
begin if not(s[i] in let) then {1-е вхождение}
begin write(s[i]); c:=s[i]; let:=let+[c] end; i:=i+1;
end;
writeln
end.




Дана строка, состоящая из слов. Напечатать те слова, которые
являются палиндромами.

Код программы:
var s,s1,s2:string;
i,k:byte;
begin;
clrscr;
writeln('Введите строку из слов, разделенных пробелами.');
readln(s);
while pos(' ',s)>0 do {если 2 пробела рядом}
delete(s,pos(' ',s),1);{1 удаляем}
i:=length(s);
s1:='';
while s[i]<>' ' do{идем с конца, собираем последнее слово}
begin
s1:=s[i]+s1;
i:=i-1;
end;
k:=0;
while pos(' ',s)>0 do{идем с начала, пока есть пробелы}
begin
s2:=copy(s,1,pos(' ',s)-1);{первое слово}
if (s2<>s1)and Palindrom(s2) then
begin
write(s2,' ');{если отличеется и палиндром, выводим}
k:=k+1;
end;
delete(s,1,pos(' ',s));{удаляем первое слово}
end;
if k=0 then write('Таких слoв нет!');
readln
end.

[Barabulko]

const n=3;
type vector=array [1..n] of real;
var i:integer; a,b,c,d:vector;
procedure sum(x,y:vector; n:integer; var z:vector);
var i:integer;
begin
for i:=1 to n do
z[i]:=x[i]+y[i];
end;
begin
for i:=1 to n do begin
write('a[',i,']='); readln(a[i]); end;
for i:=1 to n do begin
write('b[',i,']='); readln(b[i]); end;
for i:=1 to n do begin
write('c[',i,']='); readln(c[i]); end;
sum(a,b,n,d);
sum(d,c,n,d);
for i:=1 to n do
writeln('d[',i,']=',d[i]:0:4);
readln;
end.

примерно вот так - задача из 1го поста