Хелп, на все 3 нужно составить, не понимаю ни черта. В профиле есть ЭТА же задача. Кто решит, туда тоже киньте х дам

К 1 и 2 заданию отсутствуют алгоритмы. 3 задание i=1, y=-14

Объяснение:

Дан x=12 и y=-2. Происходит расчет y=y-x, т.е. y=-2-12=-14. Задача была сразу же выполнена. i=i+1 - количество произведенных операций. i=i+1, т.е. i=0+1

ответ:

Задание 1:  отсутствует алгоритм (условие неполное - решения нет).

Задание 2: отсутствует алгоритм (условие неполное - решения нет).

Задание 3: i = 1,  y = -14

Объяснение:

Алгоритм:

1.  Начало2. Ввод x,y3. y := y - x4. i := i + 15. Если y <= x , то возвращаемся к пункту 3, иначе:6. Конец

Пройдёмся по алгоритму:

1.  Начало2. Ввод x,y

Вводим 12 и -2 (теперь x = 12,  y = -2).

3. y := y - x

Уменьшаем переменную y на x (теперь y = -2 - 12 = -14).

4. i := i + 1

Увеличиваем переменную i на 1 (теперь i = 0 + 1 = 1).

5. Если y <= x , то возвращаемся к пункту 3, иначе:6. Конец

Проверяем: сейчас y = -14,   x = 12,  =>  условие "y <= x" выполняется, и мы переходим к пункту 6 -- конец.

Как мы видим, по завершении выполнения алгоритма i = 1, y = -14.

чтобы не задавать вручную, пусть он заполняется случайными числами в диапазоне от -50  до + 50

Free Pascal

const

 n=10;

 m=8;

var

 x : array [0..n] of integer;

 y : array [0..m] of integer;

 z : array [0..n+m] of integer;

 i, c, mi : integer;

begin

 randomize;

 writeln('Массив X');

 for i:=0 to n-1 do begin

   x[i] := random(100)-50;

   if i<m then

     y[i] := random(100)-50;

   write(x[i], '  ');

 end;

 c:=0;

 mi:=0;

 for i:=0 to n-1 do begin

   if x[i] mod 2 = 0 then c:=c+x[i];

   if (x[i] < 0) and (x[i] < mi) then mi:=x[i];

 end;

 writeln();

 writeln('Сумма чётных = ', c);

 if mi<0 then

   writeln('Наименьшее из отрицательных = ', mi)

 else

   writeln('Отрицательных элементов не найдено');

(*Задание 2 - объединить массивы a и b*)

 writeln('Массив Y');

 for i:=0 to n-1 do z[i]:=x[i];

 for i:=0 to m-1 do  begin

   z[i+n]:=y[i];

   write(y[i], '  ');

 end;

 writeln();

 writeln('Массив Z');

 for i:=0 to n+m-1 do

   write(z[i], '  ');

end.

const

 n=10;

var

 b: array [1..n] of integer;

 count,sum,pr,i:integer;

begin

 count:=0; sum:=0; pr:=1;

 for i:=1 to n do

   begin

     b[i]:=random(101)-50;

     write(b[i]:4);

     if (b[i] > 7) and (b[i] mod 4 = 0) then

       begin

         inc(count);

         sum:=sum+b[i];

         pr:=pr*b[i];

       end;

   end;

 writeln;

 if count > 0 then

   begin

     writeln('Count: ',count);

     writeln('Summa: ',sum);

     writeln('Proizvedenie: ',pr);

   end

     else writeln('Takix net');

end.