Дан одномерный массив из 5 элементов. найти сумму всех положительных элементов массива. начало такое var a: array[1..5] of integer;

Summa: =0;   for i: =1 to n do if a[i]mod 2 < > 0 then summa: =summa+a[i]; end.

ответ:

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

объяснение: большинство опрошенных считает, что профессию электромонтера нельзя назвать редкой, в нашей стране она достаточно распространена. уже несколько лет на рынке труда наблюдается спрос на представителей профессии электромонтера, несмотря на то, что специалистов каждый год выпускается немало.

Ms dos qbasic 1,0 dim m as integer, n as integer cls input "m,n = ", m, n redim a(1 to m, 1 to n) as integer randomize timer for i = 1 to m     for j = 1 to n           a(i, j) = 100 * rnd - 50           print using "####"; a(i, j);           next j     print next i min = 1000: max = -1000 for i = 1 to m     for j = 1 to n           if a(i, j) > max then                 max = a(i, j)                 jmax = j           end if           if a(i, j) < min then                 min = a(i, j)                 jmin = j           end if     next j next i dim p as double p = 1 for i = 1 to m     p = p * a(i, jmax) * a(i, jmin) next i print "p="; p пример m,n = 4,7   11  42 -35  -8 -11 -40 -23   -16 -45 -41  13    0 -41  22   32  48  29 -10  15 -38  22   27 -22 -23  -9    7    2  30 p= 3983377305600