Здраствуйте,напишите в паскаль! !
вариант 4
между всеми словами текста устранить все знаки препинания и оставить по одному пробелу. вывести на печать слова, длина которых равны средней длине слова.

Program Pascal1;
uses Crt;
const
  m=4;
  n=2;
var
  a:array[1..m,1..n] of real;
  i,j,k:integer;
begin
  ClrScr;
  Randomize;
  Writeln('Сформированный масcив');
  k:=0;
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(31)-15.0;
      Write(a[i,j]:6:1);
      if a[i,j]=10 then Inc(k)
      end;
    Writeln
  end;
  Writeln('Количество элементов, равных 10: ',k);
  Write('Нулевые элементы: ');
  for i:=1 to m do
    for j:=1 to n do
      if a[i,j]=0 then Write('a[',i,',',j,'] ');
  Writeln
end.

Вариант выполнения:

1.

использовать Чертежник

алг

нач

опустить перо

сместиться в точку (0,6)

сместиться в точку (6,6)

сместиться в точку (6,0)

сместиться в точку (0,0)

поднять перо

кон

2.

использовать Чертежник

алг

нач

сместиться в точку (-7,0)

опустить перо

сместиться на вектор (2,5)

поднять перо

сместиться на вектор (2,-5)

опустить перо

сместиться на вектор (2,5)

поднять перо

сместиться в точку (2,0)

опустить перо

сместиться на вектор (2,5)

поднять перо

сместиться на вектор (2,-5)

опустить перо

сместиться на вектор (2,5)

поднять перо

кон

Объяснение:

скрины