Сдавать скоро а как сделать не знаю

[eXeS]

помогите пожалуйста кто чем может,ничего не получается и найти не могу :
1. Сформировать вектор, элементы которого – наименьшие элементы соответствующих столб-цов заданной матрицы.

2. Составить функцию вычисления
{система уравнений}
{sin(x), x<=0
y(x) = {x2, 0<x<=1
{x, x>1
Используя ее, вычислить z(x)=(y(x-3)) 2+3x для x 0(0,5)5.

3. Заменить все знаки '=' на следующий символ из строки, если таковой имеется.

[Dirt]

Привет, что прям ничего, не получается? или вы не пробовали

[Gongled]

Первая задача:

program pr1;
uses CRT;
const
n = 5;
type
DMass = array[1..n,1..n] of integer;
OMass = array[1..n] of integer;
var
a : DMass;
b : OMass;
i, j, min : integer;

begin
clrscr;
randomize;

writeln('Исходный массив: ');
for i:=1 to n do
begin
    for j:=1 to n do
    begin
        a[i,j] := random(10);
        write(a[i,j]:4);
    end;
writeln;
end;

writeln('Массив минимумов: ');
for j:=1 to n do
begin
     min := a[1,j];
     for i:=1 to n do
     begin
         if min > a[i,j] then min := a[i,j];
     end;
b[j] := min;
write(b[j]:4);
end;

end.

Третья задача:

program pr3;
uses CRT;
var
s : string;
i : integer;
begin
clrscr;

write('Введите строку: ');
read(s);

{ Пробегаем каждый символ строки }
for i:=1 to length(s) do
{ Если символ является пробелом и существует следующий символ, }
{ то заменяем действующий символ на следующий }
if (s[i] = '=') and (i+1 <= length(s)) then s[i] := s[i+1];

write('Результат: ',s);
end.

P.S. А вторую, честно говоря, не хочу решать.

[eXeS]

да пробовал,никак.

[eXeS]

Спасибо огромное!!!!тут ещё одна привалила к сожалению графическим модулем я,как говорится,абсолютный ноль:

4.шарик надувающийся и лопающийся,залитый цветом(без разницы каким)

[DM_bite]

3.

program Xd;
var s:string;
    I: integer;
    begin
    ReadLn(s);
    for i:= 1 to length(s)-1 do
     begin
     if s[i]='=' then s[i]:= s[i+1];
     end;
     WriteLn(s);
     ReadLn;
     end.

(( опоздал.

[eXeS]

пожалуйста,кто может,решите вторую(

[IT-man]

2

function fotx(a:real):real;
  begin
  if a<=0 then fotx:=sin(a)
  else if a<=1 then fotx:=sqr(a)
  else fotx:=a;
 end;
 var
  x,y,z: real;
 begin 
 x:=0;
 repeat
 y:=fotx(x);
 z:=sqr(y*(x-3))+3*x;
 writeln('pri x=',x:6:3,'z=',z:6:3);
 x:=x+0,5;
 until x>5;
 readln;
 end;

[eXeS]

большое спасибо!!!осталась последняя,про шарик,надувается и лопается,шарик любого цвета.
огромная просьба,если есть идеи,пожалуйста отпишитесь.

[OCTAGRAM]

Я так, понимаю, эллипс увеличивается, увеличивается, а потом разлетается на дуги.