программный код. среда lazarus

Question

помогите с программным кодом в среде Lazarus 
1)одномерный массив. образовать массив поправилу: 
B'1'=n*A'n';('1','n'-индексы при A,B) 
B'2'=(n-1)*A'n-1'; 
....
B'n'=A'1'. 
2)вычеркнуть в массиве элементы, имеющие значения 6,7,11,15,25. 
3)многомерные массивы. max элемент главной диагонали. n=4,min=-12,max=3 
4)строки. задан список из 10-ти городов. присвоить переменной Т название города с максимальным количеством букв. 
Спасибо!

2)вычеркнуть в массиве элементы, имеющие значения 6,7,11,15,25.сдвигая оставшиеся

Максим Драпов · Accepted Answer

1, 2 задания:

var a,b,c:array [1..100] of integer;
i, n,k : integer;

begin

write ('n= ');
readln (n);

writeln ('massiv A');
for i:=1 to n do
begin
a:= random(11);
write (a:6);
end;
writeln;
writeln ('massiv B');
for i:=1 to n do
begin
b:= (n-i+1)*a[n-i+1];
write (b:6);
end;
writeln;
k:=0;
for i:=1 to n do
begin
if (a<>6) and (a<>7) and (a<>11) and (a<>15) and (a<>25)
then
begin
k:=k+1;
c[k]:=a;
end;
end;
writeln ('massiv C');
for i:=1 to k do
write (c:6);
end.