1.составьте программу заполнения массива не используя клавиатуру числами -2, 4,-6,8,-. 2.сформировать одномерный массив из 30 элементов ( гсч-рандомно) из интервала -3..3. массив вывести.найти номер положительных элементов и их сумму чисел.

Буду считать, что да, он самый востребованный тут =) 1) var a: array [0..9] of integer;     i, o: integer; begin       for i : = 1 to 20 do       begin           if (i mod 4 = 0) then a[o] : = i           else if (i mod 4 = 2) then a[o] : = -1 * i;           if (i mod 4 mod 2 = 0) then o : = o + 1;       end;             for i : = 0 to 9 do           writeln(a[i]); end.2)var a: array [0..30] of integer;     i, o: integer;     s: string; begin      for i : = 1 to 30 do      begin          a[i] : = random(6) - 3;       end;       writeln('массив: ');       for i : = 0 to 30 do      begin          writeln('[', i, '] => ', a[i]);           if (a[i] > 0) then          begin              o : = o + a[i];               s : = s + inttostr(i) + ' ';           end;       end;       writeln('номера положительных чисел: ', s); end.

При последовательном режиме выполняется сначала программа а, за 10 минут, а затем программа б за 20 минут, в сумме их время получается 30минут. при мультипрограммировании программы выполняются не последовательно, а вместе, т.е. время на их выполнение будет лежать в промежутке от 20 до 30минут, где т будет равно времени, лежащему в промежутке, за которое исполнитель выполнит обе .