Розмірність масиву: 100 діапазон значень: -50 - 50 що потрібно зробити : у всіх послідовностях негативних чисел обмежити значення тих елементів, абсолютне значення яких перевищує абсолютне середнє для цієї послідовності

1)
uses crt;
var a:array [1..15] of integer;
     i,k:integer;
begin
  randomize;
  k:=0;
  for i:=1 to 15 do
    begin
      a[i]:=random(10)-3;
      if (a[i]<0) then inc(k);
      write (a[i],' ');
    end;
  writeln;
  writeln (k/15*100,'%');
end.

2)
uses crt;
var a:array [1..20] of integer;
     i:integer;
begin
  randomize;
  for i:=1 to 20 do
    begin
      a[i]:=random(30);
      write (a[i],' ');
    end;
  writeln;
  for i:=1 to 20 do
    if (a[i] mod 10 = 3) then write (a[i],' ');
end.

3)
uses crt;
var a:array [1..20] of integer;
     i:integer;
     k:longint;
begin
  randomize;
  k:=1;
  for i:=1 to 20 do
    begin
      a[i]:=random(30);
      write (a[i],' ');
      if (a[i]>9) and (a[i]<100) then k:=k*a[i];
    end;
  writeln;
  writeln (k);
end.

4)
uses crt;
var a:array [1..30] of integer;
     i:integer;
     flag:boolean;
begin
  randomize;
  for i:=1 to 30 do
    begin
      a[i]:=random(30);
      write (a[i],' ');
    end;
  writeln;
  flag:=true;
  for i:=1 to 29 do
    if (a[i]>a[i+1]) then
     begin
       flag:=false;
       break;
     end;
  writeln (flag);
end.

Высказывания сестёр (+ означает виновна, - не виновна, 0 про неё ничего не сказано)

Валя             Соня             Кристина

  Соня -                        Соня -                             Соня +

Кристина +               Кристина 0                    Кристина -  

  Валя 0                        Валя -                            Валя 0

Известно, что 2 сестры точно говорят правду, другая лжёт

Теперь берём любые 2 сестры. Если они не противоречат друг другу, значит они говорят правду, а третья - лжёт.

Валя и Кристина противоречат друг другу насчёт Сони и кристины

Соня и Кристина противоречат друг другу насчёт Сони

Валя и Соня не противоречат друг другу

Если мы соединим высказывания Вали и Сони, то получится:

  Соня -

Кристина +

   Валя -

ответ: Кристина лжёт. Она спрятала мышку.