Составить программу.через двумерный массив. дана матрица а.сформировать вектор в, каждый элемент которого равен длине соответствующей строке матрицы а. длина строки считается по b1=√a11²+a12²+a13²+.. b2=√a21²+a22²+a23²+.. матрица вводится с клавиатурыpascal)

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

begin
  var n:=ReadInteger('Количество строк в матрице:');
  var m:=ReadInteger('Количество столбцов в матрице:');
  Writeln('Вводите элементы матрицы построчно');
  var a:=new real[n,m];
  var b:=new real[n];
  for var i:=0 to n-1 do begin
    b[i]:=0;
    for var j:=0 to m-1 do begin
      Read(a[i,j]);
      b[i]+=Sqr(a[i,j])
      end;
    b[i]:=Sqrt(b[i])
    end;
  Writeln('Сформированный вектор');
  b.Println;
end.

Пример
Количество строк в матрице: 4
Количество столбцов в матрице: 3
Вводите элементы матрицы построчно
3.4 5.1 8
-1 0 1
-5.34 1.777 5
3 4 5
Сформированный вектор
10.0781942827076 1.4142135623731 7.52816903370268 7.07106781186548

Парабола y=2-x^2=(√2+x)(√2-x) пересекает ось абсцисс в точках x1=-√2; x2=√2.

Поэтому нужно проверять два условия: (x1 ≤ x ≤ x2) и (0 ≤ y ≤ 2-x^2)

С операторами Select Case это будет так:

x = InputBox ("Введите x")

y = InputBox ("Введите y")

Select Case x

Case -Sqrt(2) To Sqrt(2)

_ _ Select Case y

_ _ Case 0 To (2 - x^2) : MsgBox ("Попадает!")

_ _ Case Else : MsgBox ("Y не попадает")

_ _ End Select

Case Else : MsgBox ("X не попадает")

End Select

Только проверь, как в твоей версии VB пишется функция квадратного корня. В некоторых версиях бывает Sqr вместо Sqrt.

На знаки подчеркивания _ не обращай внимания, это для выравнивания.

Там пробелы должны быть, но сайт их съедает.

ответ

Мультимедийные технологии широко применяются в

1. Образовании (электронные учебники, мультимедийные энциклопедии и справочники, виртуальные лаборатории и т.д.)

2. Культуре и искусстве (компьютерные гиды, виртуальные экскурсии по музеям и историческим местам всего мира, цифровые коллекции произведений живописи и записей музыкальных произведений).

3. Науке (системы компьютерного моделирования).

4. Бизнесе (реклама и продажа товаров и услуг).

5. Компьютерных играх и других областях человеческой деятельности