Напишите следующие высказывания в виде логичиских воражений 1.спутники марса являеться фобос и деймос . 2. угол являеться поямым только тогда ,когда он равен 90° 3. наверное , что у земли два спутника

Var
  A: array [1..120] of real;
  i, res: integer;

begin
  randomize();
  res := 0;
 
  for i := 1 to 120 do
  begin
    A[i] := random(101);
    writeln('A[', i, '] => ', A[i]);
  end;
  writeln();
 
  for i := 1 to 120 do
    if abs(A[i]) > 17 then
      inc(res);
 
  writeln(res);
end.



var
  C: array [1..20] of integer;
  i, res: integer;

begin
  randomize();
  res := 0;
 
  for i := 1 to 20 do
  begin
    C[i] := random(101);
    writeln('C[', i, '] => ', C[i]);
  end;
  writeln();
 
  for i := 1 to 20 do
    if C[i] mod 2 = 1 then
      C[i] := -1 * C[i];
 
  writeln('New array:');
  for i := 1 to 20 do
  begin
    writeln('C[', i, '] => ', C[i]);
  end;
end.

Объяснение:

рлллолшчллы пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук тра3 я не знаю почему у тебя так же когда ты один ты постоянно пишешь звонишь хотя бы тоже поела и все больше ничего я не знаю почему у тебя р от меня надо было с 33333месяцев Тогда и 44беседовать