формировать новый текст, включив в него слова заданного, разделенные только одним пробелом.

[SashaPRO]

Задачи по лабам.
1.Заданы имена девочек. Определить, какие из этих имен встречаются во всех классах данной параллели, которые есть токлько в некоторых классах и какие из этих имен не встречаются ни в одном классе.

2.Задан текст,состоящий из слов, которые разделены одним или несколькими пробелами. Сформировать новый текст, включив в него слова заданного, разделенные только одним пробелом.

3.Дана матрица a размером n x m. Переставляя ее строки и столбцы, добиваться того, чтобы наибольший элемент или один из них оказался в верхнем углу.

4.Дано натуральное число N. Вычислить S=(1/sin1)+(1/sin1+sin2)+....+(1/sin1+sin2+...+sinN)

5.сформировать квадратную матрицу n по заданному образцу
n 0 0 .. 0 0 0
0 n-1 0 .. 0 0 0
0 0 n-2 .. 0 0 0
. . . .. . . .
0 0 0 .. 0 2 0
0 0 0 .. 0 0 1

Пожалуйста,помогите кто может

[Serge_Bliznykov]

5.

for i:=1 to n do
  for j:=1 to n do
   if i=j then A[i,j] := n+1-i
   else A[i,j] := 0;

[Викдон]

2)

var stroka:string;
    i:integer;
begin
write('Введите строку');
readln(Stroka);
i:=0;
 while i<length(stroka) do
  begin
   inc(i);
   if (Stroka[i]=' ') and (Stroka[i+1]=' ') and (i<>length(stroka))   then
     begin
     delete(Stroka,i,1);
     dec(i);
     end;

  end;
write('Итог ',stroka);
readln;

end.

[alex_fcsm]

var i,j,n:integer;
    a:array[1..100,1..100] of byte; 
begin
writeln('Input n');
readln(n);
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  if i=j then a[i,j]:=n-i+1
     else a[i,j]:=0;
  write(a[i,j]:3);

  end;
 writeln;
 end;

end.

[alex_fcsm]

var n,i,j:integer;
    sum,d:real;

begin
writeln('input n');
readln(n);
sum:=0;
for i:=1 to n do
 begin
 d:=0;
 for j:=i downto 1  do
  d:=d+sin(j);
 sum:=sum+1/d;
 end;
writeln(d:12:10);
end.

[SashaPRO]

Спасибо большое! Ща проверим усе)

и еще эт вы уж не злитесь на то что создал новые темы на эту же прост потерял эту..новичк же(

[alex_fcsm]

Переставляя ее строки и столбцы, добиваться того, чтобы наибольший элемент или один из них оказался в верхнем углу.

В правом, левом или без разницы?

[SashaPRO]

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

[alex_fcsm]

Max появляется в правом верхнем углу

uses crt;
const n=6;
var a:array[1..n,1..n] of integer;
    i,j,maxi,maxj:integer;
    temp:array[1..n] of integer;

begin
randomize;
clrscr;
for i:=1 to n do
 begin
   for j:=1 to n do
  begin
  a[i,j]:=random(100);
  write(a[i,j]:3);
  end;
 writeln;
 end;
maxi:=1;maxj:=1;
for i:=1 to n do
 for j:=1 to n do
  if a[i,j]>a[maxi,maxj] then begin
                               maxi:=i;
                               maxj:=j;
                              end;
if maxi<>1 then begin
for j:=1 to n do
 temp[j]:=a[1,j];
for j:=1 to n do
 a[1,j]:=a[maxi,j];
for j:=1 to n do
 a[maxi,j]:=temp[j];
end;

if maxj<>6 then begin
for j:=1 to n do
 temp[j]:=a[j,maxj];
for j:=1 to n do
 a[j,maxj]:=a[j,n];
for j:=1 to n do
 a[j,n]:=temp[j];
end;

writeln('===============');
for i:=1 to 6 do
 begin
  for j:=1 to 6 do
   write(a[i,j]:4);
 writeln;
 end;

end.

[SashaPRO]

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