Дан массив состоящий из положительных и отрицательных эл-ов, получить второй массив в котором находятся сперва все положительные
элементы затем все отрицательные эл-ты.

program mm2;
const
n = 30;
var
z : array[1..n] of integer;
t : array[1..n] of integer;
i, i1, j : integer;
begin
randomize;
//заполняем массив t

for j := 1 to n do
begin
t[j] := random(20) - 10;
write(t[j], ' ');
end;
// обрабатываем массив

i := 1; i1 := n;
for j := 1 to n do
if t[j] < 0 then     // если эл-т отрицательный записываем его в конец
begin                 // массива z, если положительный в начало
z[i1] := t[j];
i1 := i1 - 1;
end
else
begin
z[i] := t[j];
inc(i);
end;


// вывод массива Z
writeln;
writeln;
for j := 1 to n do
write(z[j], ' ');

readln;
end.
Скачать решение.

Сумму четных столбцов разделить на сумму четных строк.

program jura2;
const
m = 10; // 10 строк
n = 8; // 8 столбцов
var
summ : integer; // сумма четных столбцов
proizw : real; // сумма четных строк
rez : real; // результат
mass : array[1..m, 1..n] of integer;
i, j : integer;

begin
randomize;
summ := 0; proizw := 0;
for i := 1 to m do // строка
begin
for j := 1 to n do // столбец
begin
mass[i, j] := random(10) + 1;
write(mass[i, j], ' ');
if (j mod 2) = 0 then summ := summ + mass[i, j];
if (i mod 2) = 0 then proizw := proizw + mass[i, j];
end;
writeln;
end;
writeln('Сумма четных столбцов всех эл - ов матрицы = ', summ);
writeln('Сумма четных строк = ', proizw:10:0);
writeln('Отношение суммы столбцов к сумме строк = ', summ/proizw :2:4);

readln;
end.
Скачать решение.