Определите значение переменной b после
выполнения алгоритма: a:= 3;
b:= 5; a:= 6 + a*b;b:=b+a/3.
В ответе укажите одно целое
число - значение переменной
b.
Х
О16
o17
О12
О 13​

ответ:

отдел +;

использует приём из "", вывод из "";

пер

  n, сумма, сч, скор, макс: цел;

указ

  сумма : = 0;

  макс : = 0;

  вывод.цепь("введите число автомобилей: ");

  n : = приём.число();

  если n < 1 и n > 30 то вывод.цепь("^ошибка.") иначе

    вывод.цепь("^введите скорости: ^");

    от сч : = 1 до n вып

      скор : = приём.число();

      если n < 1 и n > 300 то вывод.цепь("^ошибка."); стоп(0) кон;

      увеличить(сумма, скор);

      если скор > макс то макс : = скор кон;

      вывод.цепь(" ")

    кон

  кон;

  вывод.чвещ("^средняя скорость: %.1f.^", сумма / n, 0, 0, 0);

  если макс > = 60 то вывод.цепь("yes") иначе вывод.цепь("no") кон

кон .

объяснение:

// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
  var a:=ArrRandom(20,-10,10); a.Println;
  Writeln('Наибольший отрицательный элемент ',
    a.Where(x->x<0).Max)
end.

Тестовое решение:
8 -10 -6 -10 6 10 0 4 -6 -7 10 -2 -7 -10 3 -5 0 -9 3 3
Наибольший отрицательный элемент -2

// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
  var a:=ArrRandom(15,-10,10); a.Println;
  a.Select(x->x<=3?x*x*x:x).Println
end.

Тестовое решение:
7 -3 5 -5 4 7 2 1 -10 9 -2 -7 4 0 5
7 -27 5 -125 4 7 8 1 -1000 9 -8 -343 4 0 5