35 баллов + лучший ответ

Відповідь:

aa=0 bb=0 cc=0 dd=0 ee=0

ab=5 ac=11 ad=21 ae=12

ba=5 bc=6 bd=16 be=7

ca=11 cb=6 cd=10 ce=4

da=21 db=16 dc=10 de=14

ea=12 eb=7 ec=4 ed=14

Пояснення:

ответ во вложениях........

var

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

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

writeln(min);

writeln(kol_nol);

end;

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.