Составьте программу ввода с клавиатуры массива целых чисел a[1..10] и вывода на экран элементов массива с четными положительными значениями.

Var a: array[1..10] of integer; i: integer; begin for i: =1 to 10 do     begin       readln(a[i]);       if (a[i] mod 2 = 0) and (a[i] > 0) then writeln ('положительное и четное: ', a[i]);     end; end.//программа проверяет каждое число при вводе, т.е. если введённое число является положительным и четным, то программа  его сразу же выводит.

Требуемая процедура sub ex1(byref a() as integer, byref nn as integer, byref nz as integer)       dim i as integer       nn = 0: nz = 0       for i = 1 to 45               if a(i) = 0 then                       nz = nz + 1               else                       if a(i) < 0 and i < = 35 then                               nn = nn + 1                       end if               end if       next i end sub процедура для тестирования с выводом на лист excel sub test()       dim p(1 to 45) as integer       dim n1 as integer, n2 as integer, i as integer       randomize timer       for i = 1 to 45               p(i) = int(25 * rnd - 12)               cells(i, 1) = p(i)       next i       ex1 p, n1, n2       cells(1, 2) = n1       cells(1, 3) = n2 end sub

Пример компьютера (не быстрого по сегодняшним меркам): имя: аркадий (да, я могу назвать компьютер так, как мне хочется) функция: выполнение вычислений, не требующих большой производительности элементный состав: корпус, материнская плата, процессор, жесткий диск, оперативная память,  монитор, клавиатура, мышь. свойства: корпус: размеры  368 x 367 x 393 мм, встроенный блок питания 450 вт, черныйматеринская плата: совместимость с процессорами intel, оперативная память ddr4, интегрированная графика, 4 выхода usb 2.0, 2 выхода usb 3.0процессор: 2 ядра, 3.30 ггц, техпроцесс 14 нмжесткий диск: 1 тб, 7200 об/мин, скорость чтения/записи 200/150 мб/с, среднее время поиска 14 мсоперативная память: dimm ddr4, 4 гб, частота 2133 мгцмонитор: жк 21,5'', контрастность  1000: 1, время отклика 5 мс,  черный клавиатура: проводная, черная, usb мышь: проводная, черная, usb