program massiv_perevertish;
  const n=10;
  var a,b:array [1..n] of word;
      x:word;
begin
  writeln ('Массив b');
  for x:=1 to n do begin
   b[x]:=random(100);
   write(b[x]:4);
  end;
  for x:=1 to n do 
   a[x]:=b[n+1-x];
  writeln;
  writeln ('Массив a');
  for x:=1 to n do
   write (a[x]:4);
end.

program test;

var b:array[1..10] of integer;
a: array[1..10] of integer;
c,i:integer;

begin
for i:=1 to 10 do b[i]:=random(200);

c:=11;
for i:=1 to 10 do begin
c:=c-1;
a[c]:=b[i];
end;

end.

const n=10;
var a:array[1..n] of integer;
b: array[1..n] of integer;
i:integer;

begin
   for i:=1 to n do begin
      b[i]:=random(100);
      write(b[i]:4);
   end;
   writeln();
   for i:=1 to n do begin
      a[i]:=b[n-i+1];
      write(a[i]:4);
   end;
   writeln();
end.

Пpогpамма. Дана непустая оследовательность слов из стpоч-          ных pусских букв; между соседними словами - запятая, за           последним словом - точка. Напечатать в алфавитном поpядке          все звонкие согласные буквы, котоpые входят более чем в           одно слово.

Даны два предложения, состоящие не менее чем  из  5 слов.     Слова каждого предложения заменить на  совпадающие с ними      по длине слова из другого предложения  (Заменять на соот-     ветствующие по счёту слова - например, второе слово  пер-     вого предложения из 5 букв заменить  на  второе встретив-     шееся слово из 5 букв во втором).

type строка=array [1..16] of char;           дата=record число:1..31;                       месяц:1..12;                       год:1900..1979                 end;           анкета=record фамилия:строка;                         пол:(муж, жен);                         деньрожд:дата                  end;           группа=array [1..25] of анкета;      Описать процедуру печ (Гр,Бук), печатающую все фамилии лю-      дей из группы Гр,  начинающиеся с литературы Бук,  и  даты      рождения этих людей.

program symma;
  var str,str1:string;
      n,len,x,s,k:word;
      err:integer;
      f:text;
begin
  assign (f, 'input.txt');
  reset (f);
  readln (f,str);
  close (f);
  len:=length(str);
  n:=1;
  while n<=len do begin
   if (str[n]>'0') and (str[n]<'9') then str1:=str1+str[n] else if str1>'' then begin k:=k+1; Val(str1, x, err); s:=s+x; str1:=''; end;
   n:=n+1;
  end;
  if str1>'' then begin k:=k+1; Val(str1, x, err); s:=s+x; str1:=''; end;
  assign (f, 'output.txt');
  rewrite(f);
  writeln (f,'Количество: ',k);
  writeln (f,'Сумма: ',s);
  close (f);
end.