Помогите с решением задач.

[oblachko]

Здравствуйте!!!!!Нужна помошь!!!!!Помогите решить задачи!!!!

1)Одномерный массив А заполнить случайными числами из диапозона
[-20...20]. Переместить нулевые элементы массива в конец, сдвинув остальные элементы влево.

2)Дан текст из N-символов.Группы символов, расположенное между пробелами и не содержашие пробелов внутри себя, называем словами.
Подсчитать длину самого длинного слова.

3)Дана действительная квадратная матрица порядка N=12. Найти сумму элементов, расположенных на побочной диагонали и выше её.


Очень надеюсь на вашу помошь.

[alex_fcsm]

uses crt;
var s,sub:string;
i,n,k,j:integer;
a:array[1..100] of string;
m:real;
c:char;

begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>' ') then begin
inc(n);
a[n]:=sub;
sub:='';
end
else if (s[i]<>' ')and(s[i]<>'.') then sub:=sub+s[i];
until i=length(s);
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
writeln;
k:=length(a[1]);
for i:=2 to n do
if length(a[i])>k then k:=length(a[i]);
writeln(k);

end.

[oblachko]

Большое тебе, alex_fcsm, спасибо за решение 2-ой задачи!!!Было бы супер, если бы ты помог бы мне ешё с 1-ой задачей!!!С 3 я уже сам разобрался=)))))))

[alex_fcsm]

Вы все-таки догадались что нужно создавать отдельную тему , но правила форума лучше почитайте

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,j,p:integer;

begin
randomize;
clrscr;
for i:=1 to n do
 begin
  a[i]:=20-random(40);
 write(a[i]:4);
 end;
for i:=1 to n do
 if a[i]=0 then begin
                for j:=i to n-1 do
                  a[j]:=a[j+1];
                 a[n]:=0;
                end;
writeln;
for i:=1 to n do
 write(a[i]:4);
end.

[oblachko]

Был вынужден догадаться=)))))Впредь буду внимательнее!!!!!!А да.......чуть не забыл!!!Спасибо и за 1-ю задачу=)