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.

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в матрице: ');   var m: =readinteger('количество столбцов в матрице: ');   writeln('*** исходная матрица a [',n,',',m,'] ***');   var a: =matrrandom(n,m,1,10);   a.println(3); writeln(3*a.colcount*'-');   writeln('*** исходная матрица b [',n,',',m,'] ***');   var b: =matrrandom(n,m,1,10);   b.println(3); writeln(3*a.colcount*'-');   writeln('*** матрица-результат с [',n,',',m,'] ***');   var c: =new integer[n,m];   for var i: =0 to n-1 do       for var j: =0 to m-1 do           c[i,j]: =a[i,j]+b[i,j];   c.println(3) end. пример количество строк в матрице: 4 количество столбцов в матрице: 7 *** исходная матрица a [4,7] ***   10  9  4  5  9  1  3   7  4  1  2  6  8 10   2  5  3  9  8  3  3   3  7  2  9  5  2 10 *** исходная матрица b [4,7] ***   8  1  1  4  2  5  3   8  1  8  8  3  1 10   1  5  6  2  6  5  5   8  6  5  9  4  1  7 *** матрица-результат с [4,7] ***   18 10  5  9 11  6  6   15  5  9 10  9  9 20   3 10  9 11 14  8  8   11 13  7 18  9  3 17

С++ #include < bits\stdc++.h>   using namespace std;                                                         double pi = 3.14159265;                                 int main(){ double otvet = 1.0; for ( double i = 0.1; i < = 10; i = i + 0.1) { otvet *= (1 + sin(i) ); printf("%.10f\n", otvet); // будет выводить ответ на каждом этапе умножения } return 0; }