Object Pascal, куча задач, решите мне нахаляву!

[Programmer-Analyst]

Не могу решить следующие задачи :
(Пожалуста приведите код решения данных задач на Object Pascal)

1. Найти сумму цифр пятизначного числа, введённого с клавиатуры.

2. Найти значения выражения для вводимых с клавиатуры значений
переменных A, B, C. Вывести результат с точностью 5 знаков после запятой.


3. Написать программу, проверяющую принадлежность точки с координатами (х, у) заштрихованной области на плоскости.


4. В каждой паре чисел массива Z(10) выполнить следующие пре-
образования: если числа одинаковых знаков, то поменять их местами, а
большее из них переписать в массив A; если знаки разные, то оба числа
записать в массив А; если одно из них равно нулю, то не выполнять ни-
каких действий.

5. Дана матрица Z(4,6). Определить и вывести в массив В все эле-
менты, которые в своей строке больше предыдущего и меньше после-
дующего.

6. Даны две строки символов. В первой оставить только те, кото-
рых нет во второй строке.

7. Дан массив A[20] из вещественных чисел. Преобразовать массив
так, чтобы в начале массива стояли положительные числа и нули, в кон-
це массива – отрицательные элементы, порядок следования элементов в
группах сохранить.

8. Заданы две матрицы А(6,6) и В(6,6). Для матрицы, которая отвечает
заданному условию (1) выполните преобразования (2)

Условие (1) проверить в подпрограмме Function, преобразование (2)
выполнить в подпрограмме Procedure.

1. больше сумма элементов на главной диагонали
2. в каждом столбце найти максимальный элемент и номер столбца, в котором он расположен

[digitalis]

Хозяин, и это - вся работа ? Хорош, тогда обсудим прейскурант. В разделе Фриланс. Сменить название темы с "Нужна помощь новичку" на "Сделайте за меня на халяву" .
п.3 "заштрихованная область" - на карте, хранящейся в сейфе Генштаба ?

Нет даже малейшего намека на попытку самому решать заданную ему задачу.

[Programmer-Analyst]

Xорошо вышеперечисленные задачи сам попробую выполнить затем приведу вам свой код

тогда помогите хотябы справиться с двумя задачами

7. Дан массив A[20] из вещественных чисел. Преобразовать массив
так, чтобы в начале массива стояли положительные числа и нули, в кон-
це массива – отрицательные элементы, порядок следования элементов в
группах сохранить.

8. Заданы две матрицы А(6,6) и В(6,6). Для матрицы, которая отвечает
заданному условию (1) выполните преобразования (2)

Условие (1) проверить в подпрограмме Function, преобразование (2)
выполнить в подпрограмме Procedure.

1. больше сумма элементов на главной диагонали
2. в каждом столбце найти максимальный элемент и номер столбца, в котором он расположен


Решение

4. В каждой паре чисел массива Z(10) выполнить следующие пре-
образования: если числа одинаковых знаков, то поменять их местами, а
большее из них переписать в массив A; если знаки разные, то оба числа
записать в массив А; если одно из них равно нулю, то не выполнять ни-
каких действий.

uses crt;
var z,a:array[1..10]of real;
i,k:integer;
b:real;
 
begin
 clrscr;
 write('Введите массив Z -> ');
 for i:=1 to 10 do read(z[i]);
 readln;
 k:=0;
 for i:=1 to 5 do if z[2*i]*z[2*i-1]>0 then
 begin
  b:=z[2*i];
  z[2*i]:=z[2*i-1];
  z[2*i-1]:=b;
  inc(k);
  if z[2*i]>z[2*i-1] then a[k]:=z[2*i] else a[k]:=z[2*i-1];
 end else
 begin
  inc(k);
  a[k]:=z[2*i-1];
  inc(k);
  a[k]:=z[2*i];
 end;
 
 writeln('Массив Z');
 for i:=1 to 10 do write(z[i]:0:3,' ');
 writeln('Массив A');
 for i:=1 to k do write(a[i]:0:3,' ');
 readln;
end.

5. Дана матрица Z(4,6). Определить и вывести в массив В все эле-
менты, которые в своей строке больше предыдущего и меньше после-
дующего.

uses crt;
const n=4;
      m=6;
var z:array[1..n,1..m] of integer;
    i,j:integer;
begin
clrscr;
randomize;
writeln('МСатрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    z[i,j]:=random(20);
    write(z[i,j]:4);
   end;
  writeln;
 end;
writeln;
writeln('Элементы, которые в строке больше предыдущего и меньше следующего:');
for i:=1 to n do
for j:=2 to m -1 do
if (z[i,j]>z[i,j-1])and(z[i,j]<z[i,j+1]) then write(z[i,j],' ');
readln
end.

6. Даны две строки символов. В первой оставить только те, кото-
рых нет во второй строке.

uses crt;
var s1,s2:string;
    i:byte;
begin
clrscr;
writeln('Введите первую строку');
readln(s1);
writeln('Введите вторую строку');
readln(s2);
for i:=length(s1) downto 1 do
if pos(s1[i],s2)>0 then delete(s1,i,1);
writeln('Первая строка после удаления:');
write(s1);
readln
end.

[digitalis]

Ну вот - можем, когда захотим.
6. проверил, работает. 7. делается приблизно так :

var A: array[1..20] of real ;
begin
  { заполнишь массив  сам }
   for i := 1 to 19 do
     begin
       nn := 0 ;
       for j := 1 to 19 do
         if (A[j]<0) and (A[j+1]>=0) then
           begin
              tmp := A[j] ;
              A[j]:= A[j+1] ;
              A[j+1] := tmp ;
              Inc (nn)
           end ;

      if nn=0 then Break ;
     end;
end.

[Programmer-Analyst]

А 8 задание как сделать?

[Serge_Bliznykov]

Сообщение от Programmer-Analyst

8. Заданы две матрицы А(6,6) и В(6,6). Для матрицы, которая отвечает
заданному условию (1) выполните преобразования (2)

Условие (1) проверить в подпрограмме Function, преобразование (2)
выполнить в подпрограмме Procedure.

1. больше сумма элементов на главной диагонали

const 
  n = 6;
type 
  myarr_type = array[1..n,1..n] of real;

function SumMainDiagonal( M : myarr_type) : real;
var i : integer;
  sum : real;
begin
  sum := 0;
  for i:=1 to n do
   sum := sum + M[i,i];
  SumMainDiagonal := sum
end;


.....
var 
  A, B : myarr_type;
....
begin
  
   ...<заполнить матрицу A>  
 
   ...<заполнить матрицу B>  

   if SumMainDiagonal(A)>SumMainDiagonal(B) 
        then Preobraz(A) 
        else Preobraz(B);

end.

Сообщение от Programmer-Analyst

2. в каждом столбце найти максимальный элемент и номер столбца, в котором он расположен

а это мне не понятно.
какое тут преобразование? уточните условие, как надо преобразовать матрицу.

[digitalis]

Сообщение от Programmer-Analyst

8. Заданы две матрицы А(6,6) и В(6,6). Для матрицы, которая отвечает
заданному условию (1) выполните преобразования (2)

Условие (1) проверить в подпрограмме Function, преобразование (2)
выполнить в подпрограмме Procedure.

1. больше сумма элементов на главной диагонали
2. в каждом столбце найти максимальный элемент и номер столбца, в котором он расположен

Бессмыслица какая-то.
"в каждом столбце найти... элемент" ... "номер столбца, в котором он расположен."