Определите, какие из перечисленных моделей материальные, а какие информационные. укажите номера материальных моделей. 1) макет декорационного оформления театральной постановки. 2) эскизы костюмов к театральному спектаклю. 3) атлас. 4) объёмная модель молекулы воды. 5) уравнение реакции. 6) макет скелета человека. 7) формула определения площади квадрата. 8) расписание движения поездов. 9) игрушечный паровоз. 10) схема метрополитена. 11) оглавление книги.

Определите,какие из перечисленных моделей материальные,а какие информационные. укажите номера материальных моделей.1) макет декорационного оформления театральной постановки.3) атлас.  4) объёмная модель молекулы воды.6) макет скелета человека.9) игрушечный паровоз.

java

import java.util.random;

public class myapp{

  public static void main (string {

    random rand = new random();

    int n = rand.nextint(50);

    int [] arr = new int[n];

    for(int i = 0; i < n; i++) {

      int j = rand.nextint(50);

      arr[i] = j;

    }

    for( int i = 0; i < n; i++) {

      if ( arr[i] % 2 == 0 ) {

        system.out.print(arr[i] + " ");

      }

    }

  }

}

pascal

program myapp;

var

  i, n , j: integer;

  arr: array of integer;

begin

randomize;

n : = random(50);

setlength(arr, n);

for i: = 0 to n do

  begin

    j: = random(50);

    arr[i]: = j;

  end;

for i: = 0 to n do

  begin

    if( arr[i] mod 2 = 0 ) then

      begin

        write(arr[i], ' ');

      end;

  end;

end.

Const       handsfree = true; var       a: array[1..100, 1..100] of real;       max, min: real;       i, j, m, n: integer; begin       {ввод матрицы}       if handsfree then begin               n : = random(20) + 2;               m : = random(20) + 2;       end       else begin               write('n, m =');               readln(n, m);       end;             writeln('данные матрицы');       for i : = 1 to m do       begin               for j : = 1 to n do                       if handsfree then begin                               a[i, j] : = random(100) - 50;                               write(a[i, j]: 4, ' ')                       end                       else                               read(a[i, j]);               writeln;       end;             {минимумы и максимумы}       max : = a[1, 1];       min : = a[1, 1];       for i : = 1 to m do               for j : = 1 to n do               begin                       if max < a[i, j] then max : = a[i, j];                       if min > a[i, j] then min : = a[i, j];               end;       writeln('max = ', max);       writeln('min = ', min); end.