Ниже приведена программа: var s, t: integer; begin readln(s); readln(t); if (s > 4) and (t > 2) then writeln('YES') else writeln('NO') end. Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (3, –3); (7, 6); (–4, 1); (2, 9); (12, 7); (–11, 4); (–8, 13); (10, 9); (6, 5 Сколько было запусков, при которых программа напечатала «YES»?

Ну, должно быть 4 запуска

program task31177829;var y: real; x: integer;begin Writeln('ПЕРВОЕ ЗАДАНИЕ: '); Readln(x); y := x - (Power(x, 3)/3) + (Power(x, 5)/5); Writeln('Y = ', y); Writeln('ВТОРОЕ ЗАДАНИЕ: '); // если здесь всё-таки sin(2*x*y), то пишем Sin(2*x*y) // в таком случае оно возьмёт значение y из предыдущих расчётов Readln(x); y := Power(2, -x) - Cos(x) + Sin(2*x); Writeln('Y = ', y); Writeln('ТРЕТЬЕ ЗАДАНИЕ: '); Readln(x); y := (Power(x, 2) - 7*x + 10)/(Power(x, 2) - 8*x + 12); Writeln('Y = ', y); Writeln('ЧЕТВЁРТОЕ ЗАДАНИЕ: '); Readln(x); y := x - 10*Sin(x) + Abs(Power(x, 4) - Power(x, 5)); Writeln('Y = ', y);end.

во втором примере синус принимает переменную Y как значение? если так, то на 14 строке измените на:

y := Power(2, -x) - Cos(x) + Sin(2*x*y);

1. Современное решение

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var min:=a.Min;
  a.Transform(x->x<0?x*min:x); a.Println
end.

Пример
n= 15
-34 7 0 -48 4 42 35 14 -47 6 -29 43 46 40 -18
1632 7 0 2304 4 42 35 14 2256 6 1392 43 46 40 864

2. Популярное до сих пор в школах решение на TurboPascal 7.01 (1983г.)

uses Crt;
const
  nn=100;
var
  i,n,min:integer;
  a:array[1..nn] of integer;
begin
  ClrScr;
  Randomize;
  Write('n='); Read(n);
  min:=100;
  for i:=1 to n do begin
    a[i]:=Random(101)-50;
    Write(a[i],' ');
    if a[i]<min then min:=a[i]
    end;
  Writeln;
  for i:=1 to n do
    if a[i]<0 then a[i]:=a[i]*min;
  for i:=1 to n do
    Write(a[i],' ');
  Writeln;
  ReadKey
end.