Нужна с по массивам. 1)вы создаете массив из 100 элементов, содержащий 100 чисел (вводится случайные числа). вывести массив, содержащий только положительные четные числа из этого диапазона. 2)даны целые числа a1, a2, … a50. (массив заполняется случайными числами). найти сумму тех элементов массива, которые кратны 3.

1) var    massive :   array [1..100] of integer;   i : integer; begin      // рандомизируем сид      randomize();     for i : = 1 to 100 do begin      // заполняем массив случайными числами от -100 до 100      massive[i] : =  random(201)-100 ;       // выводим число, если оно больше нуля и кратно двум.    if ((massive[i] > 0) and (massive[i]  mod 2 = 0))      then write(massive[i]+' ');     end;   end.2)var    a :   array [1..50] of integer;   i ,summ: integer;   begin      // рандомизируем сид      randomize();       // инициализируем переменную суммы      summ : = 0;     for i : = 1 to 50 do begin      // заполняем массив случайными числами от -100 до 100    a[i] : = random(201)-100 ;       // суммируем если кратно трем      if a[i]  mod 3 = 0    then begin summ : = summ + 1;   write(a[i] + ' '); end;     end;     // выводим результат    writeln();     writeln('сумма чисел кратных трем = ' + summ);   end.

Var a: array [1..10] of integer; b,i,k: integer; begin for i: =1 to 10 do read(a[i]); for i: =1 to 10 do if a[i]> k then b: =b+1; writeln(b); end.