Выполни действие и запиши верный ответ. 14mod3=

2

14 mod 3= -2
вот и весь ответ

{ задание 1}
const
  n=17;
var
  a:array[1..n] of integer;
  i,k:integer;
begin
  Randomize;
  k:=0;
  for i:=1 to n do begin
    a[i]:=Random(99)+1;
    Write(a[i],' ');
    if a[i] mod 2=0 then k:=k+1
    end;
  Writeln;
  Writeln('k=',k)
end.

Пример
43 86 43 13 24 18 93 38 38 59 15 75 12 92 8 72 8
k=10

{ задание 2/3}
const
  n=17;
var
  a:array[1..n] of integer;
  i,s:integer;
begin
  Randomize;
  s:=0;
  for i:=1 to n do begin
    a[i]:=Random(99)+1;
    Write(a[i],' ');
    if a[i] mod 10=2 then s:=s+a[i]
    end;
  Writeln;
  Writeln('s=',s)
end.

Пример
58 39 12 24 91 57 14 44 47 61 31 10 95 54 42 98 76
s=54

1) var A: array [1..2] of real;

          B: array [1..20] of real;

          i:integer;

          c:boolean;

 begin

  c:=false;

  readln(a[1],a[2]);

  for i:=1 to 20 do begin

                           readln(b[i]);

                           if (b[i]=a[1]) then begin writeln('A[1]=B[',i,']=',b[i]);c:=true; end;

                           if (b[i]=a[2]) then begin writeln('A[2]=B[',i,']=',b[i]);c:=true; end;

                           end;

  if c=false then writeln('Совпадений не найдено');

end.

2) var a:array[1..10] of real;

    npol,notr,i: integer;

   begin

    npol:=0;

    notr:=0;

    for i:=1 to 10 do begin

                             readln(a[i]);

                             if a[i]>0 then npol:=npol+1;

                             if a[i]<0 then notr:=notr+1;

                             end;

   writeln('Количество положительных значений: ',npol,', количество отрицательных значений: ',notr);

end.