Решите пожалуйста кроме доп

Question

Решите пожалуйста кроме доп

---

Answer 1

Const max=18;
var i,k:byte;
    ar:array [1..max] of integer;
    s:integer;
begin
  writeln('Начальный массив случайных чисел в диапазоне [0,30)');
  for i:=1 to max do begin
    ar[i]:=random(0,29);
    write(ar[i]:6);
  end;

  k:=0;
  s:=0;
  for i:=1 to max do begin
    if ar[i]>15 then  
      k:=k+1;
    if not odd(ar[i]) then
      s:=s+ar[i];
  end;
 
  writeln();

  writeln('Задание 1.  ', 'k=', k);
  writeln('Задание 2.  ', 's=', s);
end.

---