Задание 4

program task30982812;

var  

 arr: array[1..10] of integer;

 x, i, Sum, a: integer;

begin

 Write('Введите число a: ');

 Readln(a);

 Writeln('Введите 10 значений массива!');

 for i := 1 to 10 do

   begin

     Write(i, '-й элемент: ');

     Read(arr[i]);

     if (arr[i] mod 2 <> 0) then

       Sum := Sum + arr[i];

     if (arr[i] > a) then

       Writeln(arr[i], ' больше числа ', a)

   end;

 Write('Сумма нечётных чисел: ', Sum);

end.

Задание 5

program task30982812;

var  

 arr: array[1..15] of integer;

 i, k3, k5: integer;

begin

 for i := 1 to 15 do

   begin

     arr[i] := Random(50);

     Write(arr[i], ' ');

     if (arr[i] mod 3 = 0) then

       Inc(k3);

     if (arr[i] mod 5 = 0) then

       Inc(k5);

   end;

 Write(Chr(10), 'k3 = ', k3, ', k5 = ', k5);

end.